PROGRAM summa;
VAR A,S:REAL;
BEGIN
S:=0;
A:=0.2;
WHILE A<=2 DO
BEGIN
S:=S+A;
A:=A+0.1;
END;
WRITELN(‘Сумма=’, S:15:2);
END.
составить блок схему