program pryamoug;var a,b,s,p:real;beginwrite('введите ширину прямоугольника');read(a);write('введите длину прямоугольника');read(b);s:=a*b;p:=2*(a+b);writeln('s=',s,' ','p=',p);end.
program pryamoug;
var a,b,s,p:real;
begin
write('введите ширину прямоугольника');
read(a);
write('введите длину прямоугольника');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('s=',s,' ','p=',p);
end.