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

Var
i,k,j:integer;
begin
readln(i,k,j);
if ( (iwrite (true)
else
writeln(false);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.