При условии, что стороны прямоугольника вводятся с клавиатуры и являются целыми числами:
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.