program trik; var a,b,c:byte; begin write ('Введите А= '); Readln (a); write ('Введите B= '); Readln (b); write ('Введите C= '); Readln ( c );
if ((a=b) or (b=c) or (a=c)) then writeln ('Равнобедренный') else Write ('Не равнобедренный'); end.
