let
    var a: Integer
in
begin
    a := 4;
    a**;

    putint(a);
    puteol();
end