Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  hi
Language: PASCAL
Code:
program ftb;
uses crt;
var a: integer; 
begin
A:=9;
repeat
a:= a*a;
writeln(a);
until
a=1; 
end.          
Comments: