Uses Crt;
Var x: Integer;

      begin
        ClrScr;
        Writeln('    x    y    ');
        For x:=1 To 10 Do
        Writeln(x:5, x*x:5);
        Readln;
End.