PASCAL
program qq;var a,b,s,p : integer;beginwriteln('Введите стороны прямоугольника');read(a,b);s:=a*b;p:=2*(a+b);writeln('Площадь прямоугольника равна ',s);writeln('Периметр прямоугольника равен ',p);end.
PASCAL
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.