Програма, яка виводить суму парних чисел на проміжку від -10 до 10 (за потреби проміжок можна міняти в коді задачі):
program suma_parnuh_chisel;
var a,b,c,p: integer;
begin
writeln ('vvedit tri chisla');
readln (a,b,c);
p:=1;
if (a>=-10) and (a<=10) then
p:=p*a;
if (b>=-10) and (b<=10) then
p:=p*b;
if (c>=-10) and (c<=10) then
p:=p*c;
writeln (p);
readln
end.