const n=12;
var z:array[1..n] of real;
sr:real;
begin
writeln('Введите зарплату за последние 12 месяцев:');
sr:=0;
for i:=1 to n do
begin
write(i,' месяц =');
readln(z[i]);
sr:=sr+z[i];
end;
sr:=sr/n;
writeln('Отпускные составят ',sr:0:2);
readln
end.