1. ділянка лісу має форму рівнобічної трапеції. обчислити її периметр і площу за сторонами. паскаль

Var a,b,c,p,s:real;
begin
write('Нижнее основание: ');
readln(a);
write('Верхнее основание: ');
readln(b);
write('Боковая сторона: ');
readln(c);
p:=a+b+2*c;
s:=(a+b)/2*sqrt(sqr(c)-sqr((a-b)/2));
writeln('Периметр: ',p);
writeln('Площадь: ',s);
end.