Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program bytee
var X,P,a:Real N:Integer  
begin
Repeat
  write('give number oh megabytes');
  Read(X);
Until X>=1 and X<=100
Repeat
  write('give months');
  Read(N);
Until N>=1 and N<=100
For i:=1 to N DO
   Begin  
   If P>=0 and P<=100 
     then
     a<-- X-P
     If a<>0 
        then 
        X<-- X+a
   End
write('For month N+1 you got',X
End; 
end.          
Comments: