Паскаль описать перимтр прямоугольника

Var a,b,p:integer;
begin
writeln('Введите ширину прямоугольника ');
readln(a);
writeln('Введите длинну прямоугольника');
readln(b);
p:=a+b+c;
writeln('p= ',p);
end;