AlIsa_1

Const
    N = 5;
Var
    Num: Array [1..N] Of Integer;
    Name: Array [1..N] Of String;
    Price: Array [1..N] Of LongInt;
    Count: Array [1..N] Of Integer;
    PriceL: Array [1..N] Of LongInt;
    I: Integer;
Begin
    For I:= 1 To N Do Begin
      WriteLn('Материал #', I, ':');
      Num[I]:= I;
      Write('Введите наименование материала: ');
      ReadLn(Name[I]);
      Write('Введите цену материала: ');
      ReadLn(Price[I]);
      Write('Введите количество материала: ');
      ReadLn(Count[I]);
      Write('Введите стоимость матерала в леях: ');
      ReadLn(PriceL[I]);
    End;
    WriteLn('Ведомость (Номер; Название; Цена; Количество; Цена в леях):');
    For I:= 1 To N Do If PriceL[I] > 1000 Then Begin
      WriteLn(Num[I], '; ', Name[I], '; ', Price[I], '; ', Count[I], '; ', PriceL[I]);
    End;
    ReadLn;
End.