UrCus_2

Type
    TCalcRec = Record
        FName: String;
        FMon, FYear, FSum, FRPrice, FTotal: LongInt;
    End;
Var
    I: Integer;
    A: Array [1..5] Of TCalcRec;
Begin
    For I:= 1 To 5 Do Begin
        Write('ФИО #', I, '?: ');
        ReadLn(A[I].FName);
        Write('Месяц #', I, '?: ');
        ReadLn(A[I].FMon);
        Write('Год #', I, '?: ');
        ReadLn(A[I].FYear);
        Write('Оплата за пользование телефоном #', I, '?: ');
        ReadLn(A[I].FSum);
        Write('Плата за радиоточку #', I, '?: ');
        ReadLn(A[I].FRPrice);
        A[I].FTotal:= A[I].FRPrice + A[I].FSum;
    End;
    For I:= 1 To 5 Do Begin
        WriteLn('ФИО #', I, ': ', A[I].FName);
        WriteLn('Месяц #', I, ': ', A[I].FMon);
        WriteLn('Год #', ': ', A[I].FYear);
        WriteLn('Оплата за пользование телефоном #', I, ': ', A[I].FSum);
        WriteLn('Оплата за радиоточку #', I, ': ', A[I].FRPrice);
        WriteLn('Общая сумма к оплате #', I, ': ', A[I].FTotal);
        WriteLn('---Нажмите Enter, чтобы просмотреть следующий счет---');
        ReadLn;
    End;
End.