Написать программу, которая запрашивает у пользователя номер товара и выводит его название (не менее 5 товаров если пользователь указывает недопустимое число, то выво-дится сообщение «ошибка ввода данных»

Type goods = record  name: string;   price: real;   end; const goods_count = 5; var goodslist: array[1..goods_count] of goods; id: integer; begin  goodslist[1].name: ='iphone 5s';   goodslist[1].price: =760.0;   goodslist[2].name: ='samsung galaxy s5';   goodslist[2].price: =540.0;   goodslist[3].name: ='simens m60';   goodslist[3].price: =12.5;   goodslist[4].name: ='htc one x';   goodslist[4].price: =450.5;   goodslist[5].name: ='lg l9';   goodslist[5].price: =600.0;       write('write goods id: ');   readln(id);   if ( ( id < 0 ) or ( id > goods_count ) ) then    writeln('wrong id')  else    writeln(goodslist[id].name,' price =',goodslist[id].price);         end.

var k1,k2,k3,k4,k: integer;

begin

writeln('перед вами программа, которая умеет вычислять количество информации');

writeln('по выбранному наугад шарику из мешка.');

writeln('введите число шаров белого цвета: ');

readln(k1);

writeln('введите число шаров чёрного цвета: ');

readln(k2);

writeln('введите число шаров синего цвета: ');

readln(k3);

writeln('введите число шаров красного цвета: ');

readln(k4);

k: =k1+k2+k3+k4;

if k1< > 0 then

writeln('во фразе «выпал белый шар» содержится ',log2(k/k1): 4: 1,' бит(а) информации');

if k2< > 0 then

writeln('во фразе «выпал чёрный шар» содержится ',log2(k/k2): 4: 1,' бит(а) информации');

if k3< > 0 then

writeln('во фразе «выпал синий шар» содержится ',log2(k/k3): 4: 1,' бит(а) информации');

if k4< > 0 then

writeln('во фразе «выпал красный шар» содержится ',log2(k/k4): 4: 1,' бит(а) информации');

end.

пример:

перед вами программа, которая умеет вычислять количество информации

по выбранному наугад шарику из мешка.

введите число шаров белого цвета:

100

введите число шаров чёрного цвета:

0

введите число шаров синего цвета:

200

введите число шаров красного цвета:

100

во фразе «выпал белый шар» содержится   2.0 бит(а) информации

во фразе «выпал синий шар» содержится   1.0 бит(а) информации

во фразе «выпал красный шар» содержится   2.0 бит(а) информации

{pascalabc}

program begenjov1997;

const

  n = 30; {количество элементов массива}

  m = 10000; {максимально возможное значение элемента}

var

  a: array[1..n] of integer;

  i, sum: integer;

  s: string;

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

  writeln; randomize;

  for i: =1 to n do

    begin

      a[i]: =random(m+1);

    end;

{ищем максимальную сумму двух соседних элементов}

  sum: =a[1]+a[2];

  for i: =2 to n-1 do

      if (a[i]+a[i+1]> sum) then sum: =a[i]+a[i+1];

{заменяем элементы, кратные 3, наденной суммой}

  for i: =1 to n do

      if (a[i] mod 3 = 0) then   a[i]: =sum;

{вывод}

  writeln('массив а в обратном порядке: ');

  for i: =0 to n-1 do writeln(a[n-i],'   ');

  writeln();

  writeln('максимальная сумма двух соседних элементов равна ',sum);

end.