Паскаль. 1.вывести на экран все четные числа от 1 до n. 2.вывести на экран все трехзначные числа. 3.вывести на экран четырехзначные числа оканчивающийся на 7. 4.вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.

1)
var n,i:integer;
read(n);
for i:=1 to n do
if i mod 2=0 then writeln(i);
end.
2)var i:integer;
begin
for i:=100 to 999 do
write(i,' ');
end.
3)var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 = 7 then write(i,' ');
end.