Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  3
Language: PASCAL
Code:
program HelloWorld;
var
a,s,v,k,b:real;
begin
Readln(a);
k:=50;
v:=a*k;
repeat
s:=k+1;
a:=a*0.2;
until k:=200;
b:=v+a*k;
writeln(b);
end.          
Comments: