SlavPas_1

Type
    TCalcRec = Record
        FCode, FKPrice, FNorm, FCost: 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].FKPrice);
        Write('Норма закладки продукта #', I, '?: ');
        ReadLn(A[I].FNorm);
        A[I].FCost:= A[I].FKPrice * A[I].FNorm;
    End;
    For I:= 1 To 5 Do Begin
        WriteLn('Код продукта #', I, ': ', A[I].FCode);
        WriteLn('Название продукта #', I, ': ', A[I].FName);
        WriteLn('Цена за КГ продукта #', ': ', A[I].FKPrice);
        WriteLn('Норма закладки продукта #', I, ': ', A[I].FNorm);
        WriteLn('Стоимость продукта #', I, ': ', A[I].FCost);
        WriteLn('---Нажмите Enter, чтобы просмотреть следующий продукт---');
        ReadLn;
    End;
End.