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