Програма, яка виводить суму парних чисел на заданому двома числами проміжку:
program suma;
var n,m,s,i: integer;
begin
writeln ('vvedit promizhok');
readln (n,m);
s:=0;
for i:=n to m do
if i mod 2=0 then
s:=s+i;
writeln ('syma',s:6);
readln
end.