Сор по информатике за 6 класс 4 четверть ​

Программа сделана для такой вот зависимости цены от количества слушателей: категория b: 16-30 человек - 15 000 р. 11-15 человек - 20 000 р. 1-10 человек - 25 000р.  категория с: 11-20 человек - 20 000 р. 6-10 человек - 25 000 р.  1-5 человек - 35 000р.  буквы в и с в программе .var n,p: integer; k: char; beginwrite('категория (b,c): '); readln(k); write('b: (1-30),c: (1-20) n = '); readln(n); p: =0; case k of  'b': if n< =10 then p: =25000                  else if n< =15 then p: =20000 else if n< =30 then p: =15000;   'c': if n< =5 then p: =35000                else if n< =10 then p: =25000 else if n< =20 then p: =20000; end; if p< > 0 then writeln('p=',p) else writeln('что-то в данных не так'); end.пример работы: категория (b,c): bb: (1-30),c: (1-20) n = 22p=15000

Var a,b,c,d,n: integer; begin  writeln('введи номер цифры');   readln(d);   b: =0;   a: =1;   n: =0;     if d< 0 then while d< 0 do begin    writeln('введено неверное число ,попробуйте ещё раз');   readln(d);   end;     while c< 2147483646 do begin     c: =a+b;     b: =a;     a: =c;     n: =n+1;     if (n=d) then c: =2147483647; if (n=d) then d: =b;   end; writeln('это число ',b); end.