% function to find a valid integer
function validint : int
    var input : string % user's input - can be anything

    get input

    % keep asking for input until it is a valid integer
    loop
        exit when strintok (input)
        put "not a valid integer, try again"
        get input
    end loop

    % send the valid integer to the main program
    result strint (input)
end validint




% function to find a valid integer
function validreal : real
    var input : string % user's input - can be anything

    get input

    % keep asking for input until it is a valid real
    loop
        exit when strrealok (input)
        put "not a valid real number, try again"
        get input
    end loop

    % send the valid real number to the main program
    result strreal (input)
end validreal
% Main program

% Declare variables
var num : int   % valid integer
var num2 : real % valid real

% Ask for input
put "please enter an integer"
num := validint
put "please enter a real number"
num2 := validreal