program raf105;
var i: integer;
begin
i:= 0;
while i < 5 do
if (i mod 2 <> 0)
then writeln(i);
i+= 1;
end;
end.
program raf105;
var i: integer;
begin
i:= 0;
while i < 5 do
begin
if (i mod 2 <> 0)
then writeln(i);
i+= 1;
end;
end.
Pascal ABC 3.4.2.