Răspuns:
var
a, b, c, d, h, p, aria: real;
begin
write('Prima latura=');
readln(a);
write('A doua latura=');
readln(b);
write('A treia latura=');
readln(c);
write('A patra latura=');
readln(d);
write('Inaltimea trapezului=');
readln(h);
p := a + b + c + d;
aria := (a + b) * h / 2;
writeln('Perimetrul=', p);
writeln('Aria=', aria);
end.