Pascal., выручайте) прямоугольный участок имеет размеры а на в. сколько нужно столбов для ограждения участка, если их ставят через 2 метра.

Атам ошибки нет случайно?

Program a1; var a,b,c: integer; begin read (a,b); c: =2*(a+b)/2; writeln (c) end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

Программа сделана для такой вот зависимости цены от количества слушателей: категория 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