Разработать алгоритм для ввода четырёх целых чисел и вычисление их среднего арифметического. протестировать алгоритм на исходных данных: -5,8,-1,9. линейный алгоритм

Program
var a,b,c,d: integer;
sr: real;
begin
read(a,b,c,d);
sr = (a+b+c+d)/4;
write(sr:5:2)
end.