1)Написать программу вывода всех четных чисел от 2 до 1000 включительно2)Написать

program zad1;
var i:integer;
begin
for i:=1 to 1000 do
if i mod 2 = 0 then write(i, );
end.

перебираем все числа от 1 до 1000 включительно и у каждого числа спрашиваем, если оно делится на 2, то выводим его на экран.

program zad2;
var i,sum:integer;
begin
for i:=1 to 99 do
if i mod 2 = 1 then sum:=sum+i;
write(sum);
end.

перебираем все числа от 1 до 99 включительно и у каждого числа спрашиваем, если оно не делится на 2, то добавляем его к сумме.