Контрольные по информатике

| I | II | III | IV | за год ');

writeln ('----------------------------------+-------+-------+-------+-------+------------------');

for int:=1 to num do

begin

output_data (kat_inf[int]);

first:=first+kat_inf[int].income[1];

second:=second+kat_inf[int].income[2];

third:=third+kat_inf[int].income[3];

forth:=forth+kat_inf[int].income[4];

end;

writeln ('средний доход за квартал |',first/num:7:2,'|',second/num:7:2,'|',third/num:7:2,'|',forth/num:8:2,'| -');

writeln ('-------------------------------------------------------------------------------');

End.