Вывести все четные числа в интервале от 2 до 60 в обратном порядке.

begin  for I: byte := 60 downto 2 do    if (i mod 2 = 0) then writeln(i);  //writeln('БАХ!');end.