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

Program chet;
var a,b,c,d,p:real;
begin
readln(a);
readln(b);
readln(c);
readln(d);
p:=a+b+c+d;
writeln('Пириметр равен:',p:2:2);
end;