Решать пыталась, но прога выводит ошибки! найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число а.!

Program task1; var a,b,c,d,i: integer; begin for i: = 1000 to 9999 do      begin      a : = i mod 10;     b : = i div 10 mod 10;     c : = i div 100 mod 10;   d : = i div 1000 mod 10;     if (a + d = b + c ) then                  writeln(i);     end; end.

1. 2^5 = 32. это значения от 0 до 31. ответ: 31 2. 12 страниц * 32 строки * 64 символа * 25 сотрудников * 8 бит =  4915200 бит =  614400 байт = 600 кбайт.ответ:   600 кбайт 3. 4х+4 бит > 8х - 3кб      3кб = 3096б (б - бит или байт в данном случае - не понимаю, но подозреваю,что бит)  делим обе части неравенства на 4:     х+1 бит > 2х - 768б    1 бит + 768 бит > 2х -х    1 бит + 768 бит > х    х< 769 битответ : 768 бит.4. 64 цвета поместятся в 6 бит. 512 * 128 = 65536 пикселей.65536 пикселей * 6 бит = 393216 бит = 49152 байт = 48 кбайт.ответ : 48 кбайт

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.