Паскаль программу написать введите длину и ширину прямоугольника ( два целых положительных числа). вычислить площадь и периметр прямоугольника

Var a, b:real;

begin
  readln(a, b);
  writeln('Площадь равна ', a*b);
  writeln('Периметр равен ', 2*(a + b));
end.