Напишите программу s (площади) и р (периметра) прямоугольника. заранее !

S=a*b
P=2a+2b
если программа-формула

Var a,b,s,p: integer;
Begin
Write ('Введите сторону А: '); read(a);
Write ('Введите сторону B: '); read(b);
s:=a*b;
p:=2*(a+b);
Writeln ('Площадь равна: ',s, '|', 'Периметр равен: ',p);
End.