А1 - 2
а2 -3
а3 - 3,4,5
а4 - 1
а5 - 3
а6 - 4
а7 - 5
а8 - 4
а9 - 1,2,3,4,5
а11 - 10
а12 - разрядом???
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
63-31=3265-128=3140 извени если не так на калькуляторе пощитаеш ладно сори
Попробуй сделать про то как две девочки попали в волшебную страну и так далее