Написать программу вычисления и вывода на экран периметра и площади прямоугольника. нужно! за ранее !

При условии, что стороны прямоугольника вводятся с клавиатуры и являются целыми числами:

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