test1

program test;

uses
        Crt;

var
        i : integer;

begin
        Clrscr;
        for i := 1 to 10 do begin
                Writeln(i, ' -> ', i*i);
        end;
end.