program ll1;
var a, sum: real;
begin
a:=8,9;
sum:=0;
while a>0 do begin
sum:=sum+a;
a:=a-0,3;
end;
writeln(sum);
end.
program ll1;
var a, sum: real;
begin
a:=8,9;
sum:=0;
while a>0 do begin
sum:=sum+a;
a:=a-0,3;
end;
writeln(sum);
end.