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

vari,k,j:integer;begin readln(i,k,j);if ( (i<k) and (k<j)) thenwrite ('true')elsewriteln('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.