Question

выберите ответ без ошибок
1.if a >b then x =5
2.while x>=0;do : y:=y-5
3.repeat writeln (a) until a <=25
4.for a=3 downto 1 do e:=e+1