var a,b,P:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
P:=(a+b)*2;
writeln('P = ',P);
end.
var a,b,P:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
P:=(a+b)*2;
writeln('P = ',P);
end.