Объяснение:
var
a:real = 10;
b:real = 10;
begin
while b < 20 do
b:= b + 0.1;
a:= a + b;
end;
write(a);
end.
