! for a given input integer a, should print a*2 and a*4 

let
    var a: Integer
in
begin
    ! getint(var a);
    a := 10;

    a**;
    putint(a);
    puteol();
    a**;
    putint(a);
    puteol();
end