Вычислить, сколько чисел с четным количеством цифр (например двузначные, четырехзначные и т.д.) имеют одинаковую сумму первой и второй половины цифр.

Например: четырехзначные числа 1001, 1010 - являются числами, у которых сумма первых двух цифр - 2 равна сумме второй пары цифр.

Состав HTML страницы:

заголовок документа "Задание 5. ФИО, Дата формирования.";
текстовое поле "Разрядность анализируемых чисел";
текстовое поле "Начальное значения интервала";
текстовое поле "Конечное значения интервала";
текстовое поле "Количество чисел";
поле TEXTAREA "Числа удовлетворяющие условию".
кнопку "Вычислить".

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении

1)  there  are  4  rooms  in  this  house.  (подставите  количество  сами,  т.к.  не  вижу  в  каком  2)there  are  2  bedrooms  in  this  house. 3) there    in  his  living  (аналогично  на  остальные  вопросы),  т.к.  не  видно  картинки,  чтобы  вам    перечислить,что  в  зале,  в  обеденной  комнате,  ванне,  спальне  и  ученическом  столе).