SlavPas_4

Type
    TCalcRec = Record
        FCode, FKPrice, FNorm, FCost: LongInt;
        FName: String;
    End;
    TCalcRecP = ^TCalcRec;
Var
    I: Integer;
    AP: TCalcRecP;
Begin
    New(AP);
    Write('Код продукта?: ');
    ReadLn(AP^.FCode);
    Write('Название продукта?: ');
    ReadLn(AP^.FName);
    Write('Цена за КГ продукта?: ');
    ReadLn(AP^.FKPrice);
    Write('Норма закладки продукта?: ');
    ReadLn(AP^.FNorm);
    AP^.FCost:= AP^.FKPrice * AP^.FNorm;
    Dispose(AP);
    ReadLn;
End.