Введите с клавиатуры два целых числа - длины сторон прямоугольника. выведите на экран периметр и площадь прямоугольника. заранее )

Var a,b,p,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=2*(a+b);
s:=a*b;
writeln('p = ',p,' s = ',s);
end.

Пример:
a = 4
b = 7
p = 22 s = 28