Verified answer

var

   a, b: integer;

begin

   write('введите две стороны = >');

   readln(a, b);

   writeln('периметр = ', 2 * (a + b));

   writeln('площадь = ', a * b);

end.