// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
loop 25 do begin
Write(Введите длины сторон треугольника: ); Read(a,b,c);
Writeln(Периметр треугольника равен ,a+b+c)
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.