ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

var
i,k,j:integer;
begin
readln(i,k,j);
if ( (i<k) and (k<j)) then
write ('true')
else
writeln('false');
end.