Вывести на экран в строчку все числа от 1 до 50,при этом четные числа заменить на нули

Ответ:

var i: integer;

begin

 for i:=1 to 50 do begin

   if (i mod 2 = 0) then write(0, ' ')

   else write(i, ' ');

 end;

end.