1’den 20’ye kadar olan çift sayıların toplamını veren program

uses crt;
   var
   i,b:integer;
   begin
   for i:=1 to 20 do begin
   i:=i+1;
   b:=b+i;
   end;
   writeln(b);
   readln;
   end.


Linkback: https://www.buyuknet.com/1den-20ye-kadar-olan-cift-sayilarin-toplamini-veren-program-t8231.0.html