Question

составить программу нахождения периметра треугольника.Написать допустимые имена переменных

Answer 1

uses crt;
var a,b,c,p:integer;
begin
     writeln('Введите стороны треугольника:');
     readln(a,b,c);
     P:=a+b+c;
     writeln('Периметр треугольника: ',P);
end.