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

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.