var a,b:real;
begin
readln(a,b);
writeln('p=',a+b);
end.
program poluperimetr;var a,b,p:real;beginwriteln('Введите a');readln(a);writeln('Введите b');readln(b);p:=a+b;writeln('Полупериметр прямоугольника = ' ,p);end.
var a,b:real;
begin
readln(a,b);
writeln('p=',a+b);
end.
program poluperimetr;
var a,b,p:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
p:=a+b;
writeln('Полупериметр прямоугольника = ' ,p);
end.