Найти периметр четырехугольника , если длины его сторон a,b,c,g, - вводятся с клавиатуры.
Напишите пожалуйста программу на Паскале.

Var A,P:real;BeginP:=0;Write('a = ');Read(A);P:=P+A;Write('b = ');Read(A);P:=P+A;Write('c = ');Read(A);P:=P+A;Write('d = ');Read(A);P:=P+A;WriteLn('P = ',P);End.