var i:integer;
begin
write('Введите число ');
for i:=1 to 99 do begin
if (i mod 2 = 0) Then write(i,' ');
end;
end.
лови
