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

Или так: это проще, если вы не проходили условие.Var i:integer;Beginwrite('Четные числа: '); for i:=2 to 99 do begin write(i,' ');i:=i+1;end;End.