Срочно информатика срочно​

Question

Срочно информатика срочно​

---

Answer 1

Program Perimetr;

Var a, b, p : integer;

Begin

   Writeln('введите ширину и высоту a,b: ');

   Readln(a, b);

   p := (a+b)*2;

   Writeln('периметр P=', p);

End.