Question

Сделайте 3 вариант 2 задания)))))))))Прошу срочно))))))))))))Щ

Answer 1

Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('равнобедренный') else writeln ('не равнобедренный');
end.