Первая задача переделанная под for
program znanija;
var i,a,s:integer;
begin
a:=5;
s:=6;
for I:=5 to 9 do
begin
s:=s+a-1;
inc(a);
end;
Writeln(a, ' ', s);
end.
Следующая программа найдёт все двузначные числа кратные трём и выведет их на экран
program znanija;
var i:integer;
begin
for i:=10 to 99 do if i mod 3 = 0 then write(i:3);
end.