Помогите с информатикой

program TriangleAreas;

uses
crt; // Для использования функций случайных чисел

const
N = 30; // Размер массива

var
areas: array[1..N] of real; // Массив для хранения площадей
i: integer;
base, height: real;

begin
randomize; // Инициализация генератора случайных чисел

writeln('Массив площадей треугольников:');

for i := 1 to N do
begin
// Генерация случайного основания и высоты (например, от 1 до 10)
base := random(10) + 1; // Основание от 1 до 10
height := random(10) + 1; // Высота от 1 до 10

// Вычисление площади треугольника
areas[i] := 0.5 * base * height;

// Вывод результатов для проверки
writeln('Треугольник ', i, ': Основание = ', base:0:2,
', Высота = ', height:0:2, ', Площадь = ', areas[i]:0:2);
end;

writeln;
writeln('Массив успешно заполнен площадями треугольников.');
end.