Введите числовой код одного из товаров и получите справку о цене и количестве данного товара на складе.

Есть данные о шести товарах продовольственного магазина. Введите числовой код одного из товаров и получите справку о цене и количестве данного товара на складе.

Код программы:

var

    n,kol,price:integer;

    naimenovanie: string;

    f:=true;

 begin

    write('Введите код товара (от 1 до 6): ');

    readln(n);

    case n of

      1: begin

        naimenovanie:='Хлеб';

        kol:=10;

        price:=25;

      end;

      2: begin

        naimenovanie:='Молоко';

        kol:=15;

        price:=70;

      end;

      3: begin

        naimenovanie:='Колбаса';

        kol:=20;

        price:=255;

      end;

      4: begin

        naimenovanie:='Масло';

        kol:=17;

        price:=120;

      end;

      5: begin

        naimenovanie:='Макароны';

        kol:=30;

        price:=45;

      end;

      6: begin

        naimenovanie:='Крупа гречневая';

        kol:=24;

        price:=110;

      end;

      else f:=false;

    end;

    if f then begin

      writeln('Наименование товара: ',naimenovanie);

      writeln('Цена товара: ',price, ' р.');

      writeln('Остаток на складе: ',kol);

    end

    else writeln('Некорректный код товара!');

end.