Написать программу вычисления периметр четырехугольника

program perimetr;
var p,a,b,c,d:real;
begin
write('ведите значение стороны A');
readln(a);
write('Введите значение стороны B');
readln(b);
write('Введите значение стороны C');
readln(c);
write('Введите значение стороны D');
readln(d);
p:=a+b+c+d;
write('P=',p:6:2);
end.

спасибо)