18 ! составьте программу, используя цикл while do. найти сумму чисел 2,4,6,.

Program pr;
uses crt;
Var sum,i:integer;

Begin

i:=2;
sum:=0;

While i<=20 do
   Begin 
     sum:=sum+i; 
     i:=i+2;
   end;

Writeln('sum = ', sum);

readln();
end.

Можно вообще без циклов:
Var a,b : Integer;
Begin
  a:=2; b:=20;
  Writeln((b+a)*((b-a) div 2+1) div 2);
end.