uses crt;
var
c,x:real;
begin
clrscr;
c:=0; x:=0.13;
repeat
c:=c+(x+0.02)-(x+0.04);
x:=(x+0.04);
until x>0.33;
Writeln('c=',c:4:2);
readln
end.
uses crt;
var
c,x:real;
begin
clrscr;
c:=0; x:=0.13;
repeat
c:=c+(x+0.02)-(x+0.04);
x:=(x+0.04);
until x>0.33;
Writeln('c=',c:4:2);
readln
end.