Помогите, пожалуйста составить схему и программу. Умоляю

Question

Помогите, пожалуйста составить схему и программу. Умоляю

---

Answer 1

Var a,b:real;

begin
Write('a=');
readln(a);
write('b=');
readln(b);
writeln('p=',2*(a+b));
end.

---