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

var   i:integer;   a,c:real; begin   c:=0;   Writeln('Введите четыре произвольных числа');   for i:=1 to 4 do   begin     Read(a); c:=c+Int(a)   end;   c:=c/4;   Writeln('Среднее арифметическое равно ',c) end. Тестовое решение: Введите четыре произвольных числа 4.7 5.03 4.12 5 Среднее арифметическое равно 4.5