{* Задача 482 *}

Unit ZADACH482;
Interface
Implementation
Begin
 writeln('Составить программу для вычисления у каждого рабочего на участке из 50 человек средней зарплаты за 3 месяца.');
End.

Program zadach482;

Uses zadach482.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Type {* Типы переменных *}
  raboch =  Record  fam :  String [20];
  z1,  z2, z3 : real;
  sredz : real
  End;
Var {* Необходимые переменные *}
  work : Array [1..50]  Of raboch;
  i    : integer;
  Begin
  clrscr; {* Стираем всё с экрана *}
For i := 1 To 50 Do {* Цикл для i => [1 .. 50] *}
Begin
  write(‘ф. и. о. - ’);
  readln (work [i]. fam);
  write(‘1 месяц - ’);
  readln (work [i]. z1);
  write(‘2 месяц - ’);
  readln (work [i]. z2);
  write(‘3 месяц - ’);
  readln (work [i]. z3);
  readkey
End;
For i := 1 To 50 Do {* Увеличиваем i от 1 до 50 с шагом 1 *}
Begin
  work [i]. sredz := (work[i]. z1 + work [i]. z2  + work [i]. z3) / 3;
  writeln(work [i]. fam, ‘ - ’ , work [i]. sredz : 2:2, ‘руб’)
End;
readkey
End..