Составить программу которая будет считать периметр и площадь прямоугольника
Program z; var a,b:real; begin writeln('a='); readln(a); writeln('b='); readln(b); writeln('площадь прямоугольника=',a*b); writeln('периметр прямоугольника=',(a+b)*2); end.