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

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