1. Составить программу для нахождения площади трапеции. 2. Составить программу для нахождения квадрата суммы двух чисел (по формулам сокращённого умножения). 3. Составить программу для нахождения объёма параллелепипеда, если известна его длина, ширина, высота.

1. programm trapeciya;

var s, a, b, h: integer;

begin

writeln ('Введите длину a');

readln (a);

writeln ('Введите ширину b');

readln (b);

writeln ('Введите высоту h');

readln (h);

s: = 1/2 * h * (a + b);

writeln ('Площадь трапеции равна', s);

end.

2. programm summa;

var a, b, s: integer;

begin

writeln ('Введите первое число a');

readln (a);

writeln ('Введите второе число b');

readln (b);

s: = sqr (a) + 2 * a * b + sqr (b);

writeln ('Квадрат суммы двух чисел равен', s);

end.

3. programm parallelepiped;

var a, b, c, v: integer;

begin

writeln ('Введите длину a');

readln (a);

writeln ('Введите ширину b');

readln (b);

writeln ('Введите высоту h');

readln (h);

v: = a * b * h;

writeln ('Объем параллелепипеда равен', v);

end.