let
    var a: Integer;
    var b: Integer
in
begin
    ! Get user input for both values
    put('>'); put(' '); getint(var a);
    put('>'); put(' '); getint(var b);

    ! Sum
    putint(a+b);
    puteol();

    ! Prod.
    putint(a*b);
    puteol();

    ! Check if the same
    if a = b
       then    begin put('S'); put('a'); put('m'); put('e'); put('!'); end
       else    !nothing
end