Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине «Океан» (наименование, единица измерения, цена, количество) — Pascal(Паскаль)

Program zap_12;

Uses Crt;

Const
  n = 10;

Type
  tovar = record
    name, ed: string[20];
    cena: real;
    kol: integer;
  end;

Var
  a: array [1 .. n] of tovar;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите наименование товара ');
      Readln(name);
      Writeln(' Введите единицы измерения');
      Readln(ed);
      Writeln('Цена');
      Readln(cena);
      Writeln('Количество');
      Readln(kol);
    End;
  Writeln('Ассортимент магазина');
  for i := 1 to n do
    with a[i] do
      Writeln(name, ' ', ed, ' ', cena:4; 2, ' ', kol);
  Readln;

end.

Leave a Comment