Решить в паскаль вывести на экран: целые числа 10, 12, 14, 60 в обратном порядке в столбик (решить тремя используя операторы for, while и repeat.)

Var i: integer;begin  for i:=60 downto 10 do  writeln(i);  i:=60;  while i>9 do   begin    writeln(i);    i:=i-1;  end;  i:=60;  repeat    writeln(i);    i:=i-1;  until i=9;  end.