function

program kuadrat;
uses crt;

function kuadratin(x: integer): integer;
begin
    kuadratin := x*x;
end;

begin
    clrscr;
    writeln(kuadratin(kuadratin(2)));
    readkey;
end.