Можете составить программу в паскале для нахождения среднего арифметического 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.