program square;
uses crt;

{--------------------------------------------------------------------------

This program squares the numbers 1 through 9 and prints the results.
                        by 

--------------------------------------------------------------------------}


VAR answer : real;

begin

clrscr;

answer := sqr(1);
writeln ('1 squared is ',answer:0:10);

answer := sqr(2);
writeln ('2 squared is ',answer:0:10);

answer := sqr(3);
writeln ('3 squared is ',answer:0:10);

answer := sqr(4);
writeln ('4 squared is ',answer:0:10);

answer := sqr(5);
writeln ('5 squared is ',answer:0:10);

answer := sqr(6);
writeln ('6 squared is ',answer:0:10);

answer := sqr(7);
writeln ('7 squared is ',answer:0:10);

answer := sqr(8);
writeln ('8 squared is ',answer:0:10);

answer := sqr(9);
writeln ('9 squared is ',answer:0:10);

readln;

end.