Вычислить периметр и площадь прямоугольника, если заданы его стороны. нужно написать программу для этой (pascal)

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