vaa, b, c: integer;
begiwrite('Введите значение стороны a: ')readln(a)write('Введите значение стороны b: ')readln(b)write('Введите значение стороны c: ')readln(c);
end.
va
a, b, c: integer;
begi
if (a = b) and (b = c) thewrite('Введите значение стороны a: ')
readln(a)
write('Введите значение стороны b: ')
readln(b)
write('Введите значение стороны c: ')
readln(c);
writeln('Треугольник равносторонний'
els
writeln('Треугольник не является равносторонним');
end.