Пример 1. Сумма первых ста натуральных чисел
program summa;
var i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
sum:=sum+i;
writeln ('Sum =',sum);
end.
Пример 2. Сумма первых 10 четных чисел
program summa;
var i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
if i mod 2=0 then
sum:=sum+i;
writeln ('Sum =',sum);
end.