За решение задач студент получил четыре оценки. Составьте программу, которая определит среднее значение оценок.

vara,b,c,d:integer;s:real;beginwriteln('введите 1 оценку');readln(a);writeln('введите 2 оценку');readln(b);writeln('введите 3 оценку');readln(c);writeln('введите 4 оценку');readln(d);s:=(a+b+c+d)/4;writeln('Среднее значение= ',s);end.