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

спасибо)

program perimetr;var p,a,b,c,d:real;beginwrite('ведите значение стороны 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.