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