begin
    string(80) s;
    integer    n;
    write( "Enter a string  > " );
    read( s );
    write( "Enter an integer> " );
    read( n )
end.