:напечатать и подсчитать сумму всех четных чисел от 10 до 30.

10,12.14,16,18,20,22,24,26,28,30:общее количество 11

var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
 if i mod 2 = 0 then
  begin
  write(i:4);
  sum:=sum+i;
  end;
writeln;
writeln('Их сумма = ',sum);
end.