Объяснение:
procedure squares();
var
a1, b1, a2, b2: real; //Переменные для катетов
s1, s2: real; //Переменные для площадей
mess: string;
begin
{Начальные значения}
write('Input a1: ');
readln(a1);
write('Input b1: ');
readln(b1);
writeln();
write('Input a2: ');
readln(a2);
write('Input b2: ');
readln(b2);
writeln();
// Вычисление площадей
s1 := 0.5 * a1 *b1;
s2 := 0.5 * a2 *b2;
// Вывод в консоль
if (s1 > s2) then mess:= 'The area of the 1st triangle is greater than the area of the 2nd one.'
else
if (s1 = s2) then mess:= 'Areas are equal'
else mess:= 'The area of the 2nd triangle is greater than the area of the 1st one.';
writeln('s1 = ', s1:8:2);
writeln('s2 = ', s2:8:2);
writeln(mess);
readln(); // удерживаем консоль
end;
procedure exampleFun();
var
x, y: real;
begin
{Начальные значения}
write('Input x: ');
readln(x);
writeln();
// Вычисление функции y
if (x < -5) then y := x
else
if (x < 3) then y := -x * x
else y := x * x * x;
// Вывод в консоль
writeln('y = ', y:8:2);
readln(); // удерживаем консоль
end;
begin
squares(); //Вызов 1-й процедуры
exampleFun(); //Вызов 2-й процедуры
end.
D-A = 2
(9+1)*(2+1) = 30 (+1 так ка включительно)
ответ 30