Составить программу в Паскаль:Даны 4 числа,выделить целые части и найти среднее арифметическое этих чисел.

Предыдущий
вопрос Следующий
вопрос

program Average;
var
a, b, c, d: real;
integerPartA, integerPartB, integerPartC, integerPartD: integer;
average: real;
begin
// Вводим 4 числа
write('Введите число A: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
write('Введите число D: ');
readln(d);

// Находим целые части чисел
integerPartA := trunc(a);
integerPartB := trunc(b);
integerPartC := trunc(c);
integerPartD := trunc(d);

// Находим среднее арифметическое целых частей
average := (integerPartA + integerPartB + integerPartC + integerPartD) / 4;

// Выводим результат
writeln('Целая часть числа A: ', integerPartA);
writeln('Целая часть числа B: ', integerPartB);
writeln('Целая часть числа C: ', integerPartC);
writeln('Целая часть числа D: ', integerPartD);
writeln('Среднее арифметическое целых частей: ', average:0:2);
end.