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

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.