Можете составить программу в паскале для нахождения среднего арифметического 4 чисел

var

a1, a2, a3, a4: integer;

s: real;

begin

cls;

writeln ('Введите 4 числа с клавиатуры: ');

readln (a1);

readln (a2);

readln (a3);

readln (a4);

s : = (a1 + a2 + a3 + a4) / 4;

writeln ('Среднее арифметическое введённых чисел равно ', s, '.');

end.