var 
mark, sum, count:integer;

begin

count := 5;

writeln('Первая оценка мальчика?');
readln(mark);
sum := sum + mark;
writeln('Вторая оценка мальчика?');
readln(mark);
sum := sum + mark;
writeln('Третья оценка мальчика?');
readln(mark);
sum := sum + mark;
writeln('Четвертая оценка мальчика?');
readln(mark);
sum := sum + mark;
writeln('Пятая оценка мальчика?');
readln(mark);
sum := sum + mark;
writeln('Средний бал: ',sum/count:1:1);
end.