Write a Pascal program to calculate the area and perimeter of a trapezoid

univerkov | December 12, 2020 | education

var a, b, c, d, e, p, s: real;
begin
writeln (‘enter the length, width, height, and sides’);
readln (a, b, c, d, e);
s: = ((a + b) / 2) * c;
p: = a + b + d + e;
Writeln (‘Area is equal to’, s);
Write (‘Perimeter equals’, p)
end.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.