алгоритм. среди пяти чисел найти среднее арифметическое

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

programm srednee;

var: a, b, c, d, e, sr: integer;

writeln ('Введите первое число а = ');

readln (a);

writeln ('Введите второе число b = ');

readln (b);

writeln ('Введите третье число с = ');

readln (с);

writeln ('Введите четвертое число d = ');

readln (d);

writeln ('Введите пятое число е = ');

readln (е);

sr = (a + b + c + d + e) / 5;

writeln ('Среднее арифметическое = ' sr);

end.