Pascal
var
S,a1,a2,a3,a4,a5,a6:real;
begin
a1:=100;
a2:=a1/5;
a3:=a2/5;
a4:=a3/5;
a5:=a4/5;
a6:=a5/5;
S:=a1+a2+a3+a4+a5+a6;
write(S);
end.
Pascal
var
S,a1,a2,a3,a4,a5,a6:real;
begin
a1:=100;
a2:=a1/5;
a3:=a2/5;
a4:=a3/5;
a5:=a4/5;
a6:=a5/5;
S:=a1+a2+a3+a4+a5+a6;
write(S);
end.