Привет, вот твое решение!Если что не так - пиши, исправлю
Удачи
vara,b,P,S:real;beginreadln(a);readln(b);P:=2*(a+b);S:=a*b;writeln('perimetr=', P);writeln('ploshad=', S);end.
