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