Перепишите строки программы так что-бы получилась программа для вычисления периметра треугольрика по трём вредным длина сторон.
writeln('Периметр равен', P);
writeln('Введите три числа>>');
begin
P:=a+b+c;
read(a,b,c);
var a, b,c, P: integer;
Program Perim;
end.

Program perim;

var a,b,c,P : integer;

begin

wrteln('Введите три числа: ');

read(a,b,c);

p := a + b + c;

writeln('Периметр равен', P);

end.

Program Perim;

var a, b,c, P: integer;

begin

writeln('Введите три числа>>');

read(a,b,c);

P:=a+b+c;

writeln('Периметр равен', P);

end.