SlavPas_2

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.