Паскаль. составьте программу, которая печатает все четные числа до 99. буду )

Или так: это проще, если вы не проходили условие.

Var i:integer;
Begin
write('Четные числа: ');
 for i:=2 to 99 do begin
 write(i,' ');
i:=i+1;
end;
End.