Question

Помогите решить задание по информатике!!

Answer 1

program nfe;

uses crt;

var a,b,c:integer;

begin

readln(a,b,c);

if (a=c) and (a<>b)  and (b<>c) then writeln('равнобедренный');

if (a=c) and (a=b) and (c=b) then writeln('равносторонний');

if (a<>c) and (a<>b) and (b<>c) then writeln('разносторонний');

readln;

end.