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

извиняюсь p:=a+b; должно быть без с

p:=(a+b)*2

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