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

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

Var one,two,three:integer;
Begin   
 Write('Введите первое число число: ');   
 ReadLn(one); 
 Write('Введите второе число число: ');   
 ReadLn(two);   
 Write('Введите третье число число: ');   
 ReadLn(Three);

 if (one < two) and (two < Three) then   
  writeln('Числа введены в порядке возрастания') 
 else   
  writeln('Числа НЕ введены в порядке возрастания');
End.