Перепишите строки программы так что-бы получилась программа для вычисления периметра...

Question

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

Answer 1

Program perim;

var a,b,c,P : integer;

begin

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

read(a,b,c);

p := a + b + c;

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

end.

Answer 2

Program Perim;

var a, b,c, P: integer;

begin

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

read(a,b,c);

P:=a+b+c;

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

end.