Напечать все чётные трёхзначные числа. В паскале!

program zz1;

var c:integer; / / задаем переменные целого типа

begin

c:=100; / / задаем начальное значение для переменной цикла

while c < = 999 do / / организуем цикл, пока переменная цикла не достигнет последнего значения

begin

writeln (c); / / выводим ответ в столбец

c:=c + 2; / / увеличиваем переменную цикла на два

end;

end.