Question

Даны три числа а,b и c выясните верно ли соотношение а<b<c. ответ представить в виде текста *да* или *нет*

Answer 1

Var a, b, c:integer;

function sravnenie(a, b, c:integer):boolean;
begin
sravnenie:=false;
if a<b then
 begin
 if b<c then sravnenie:=true;
 end;
end;

begin
writeln('Введи 3 числа');
readln(a, b, c);
if sravnenie(a, b, c) then writeln('Да') else writeln('Нет');
end.