Напишите программу pascal abc для винни-пуха.

Программа для нахождения периметра и пощади прямоугольника.

program n1;
var a, b, P, S: real;
begin
readln(a, b(;
P:=2*(a+b);
S:=a*b;
writeln('P=' ,P);
writeln('S=',S);
end.