Составьте программу, выводящую на экран true (false) (высказывание является истинным (ложным)), если треугольник со сторонами a, b, с является разносторонним

program z1;

var a, b, c:Integer;

begin

readln (a);

readln(b);

readln(c);

if (a<>b)and(b<>c) and(a<>c) then writeln('true')

else writeln ('false');

end .

var a,b,c:integer;

begin

readln(a,b,c);

if (a<>b) and (b<>c) then

writeln('true')

else

writeln('false');

end.

Объяснение: