Допишите код программы, которая будет вычислять периметр фигуры

Question

Допишите код программы, которая будет вычислять периметр фигуры

---

Answer 1

var a,b,P:integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

P:=(a+b)*2;

writeln('P = ',P);

end.

Comments

ну или вместо 4 строк после begin вот так:

---

writeln('Введите значение a,b: ');readln(a,b);