Question

Помогите пожалуйста, это в Паскале нужно сделать
Определитель,является ли треугольник со сторонами а,b,c равносторонним Заранее спасибо

Answer 1

var a, b, c: real;
begin
write('Введите a, b, c>>');
read(a, b, c);
if (a=b) and (b=c) then writeln('Треугольники равносторонние')
else writeln('Треугольники не равносторонние');
end.