Кумир, цикл пока найти сумму чисел 2+2.1+2.2+2.3=2.4+2.5+2.6+2.7+2.8+2.9+3 ,)

VAR
   sum, zn: Real;
BEGIN
   sum := 0;
   zn := 2;

   While (zn <= 3) do begin
      sum := sum + zn;
      zn := zn + 0.1; end;

   Write(sum);
END.