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

Var

i, k, j:integer;

begin

readln (i, k, j);

if ((i
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.