Помогите, пожалуйста! задание 1

Question

Помогите, пожалуйста! задание 1

---

Answer 1

Var P,a,b:integer;
begin
writeln ('Введите a и b');
read (a);
read(b);
P := (a+b)*2;
writeln('P=';P);
end.

Answer 2

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

Пример:
a = 5
b = 7
p = 24