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

var a, b, c:integer;function sravnenie(a, b, c:integer):boolean;beginsravnenie:=false;if a<b then begin if b<c then sravnenie:=true; end;end;beginwriteln('Введи 3 числа');readln(a, b, c);if sravnenie(a, b, c) then writeln('Да') else writeln('Нет');end.