UrCus_1

Type
    TCalcRec = Record
        FCode, FInc, FDec, FRem: LongInt;
        FName: String;
    End;
Var
    I: Integer;
    A: Array [1..5] Of TCalcRec;
Begin
    For I:= 1 To 5 Do Begin
        Write('Идентификационный код #', I, '?: ');
        ReadLn(A[I].FCode);
        Write('ФИО #', I, '?: ');
        ReadLn(A[I].FName);
        Write('Изготовлено деталей #', I, '?: ');
        ReadLn(A[I].FInc);
        Write('Расценка за единицу #', I, '?: ');
        ReadLn(A[I].FDec);
        A[I].FRem:= A[I].FInc * A[I].FDec;
    End;
    For I:= 1 To 5 Do Begin
        WriteLn('Идентификационный код #', I, ': ', A[I].FCode);
        WriteLn('ФИО #', I, ': ', A[I].FName);
        WriteLn('Изготовлено деталей #', ': ', A[I].FInc);
        WriteLn('Расценка за единицу #', I, ': ', A[I].FDec);
        WriteLn('Начислено #', I, ': ', A[I].FRem);
        WriteLn('---Нажмите Enter, чтобы просмотреть следующую зарплату---');
        ReadLn;
    End;
End.