var
a,b,c:integer;
begin
writeln('Введите A, B и С');
readln(a,b,c);
if (a<b) and (b<c) and (a<c) then
writeln('Верно!')
else
writeln('Не верно!');
readln
end.