Program AddNums(output);
    var 
    x,y,S,P:integer;
    begin
writeln('Введите стороны прямоугольника (x и y)');
readln(x,y);
S:= x*y;
P:= 2*(x+y);
writeln('Площадь прямоугольника:',S);
writeln('Периметр прямоугольника:',P)
end.