У чому схожість і відмінність створення об’єктів графічного інтерфейсу програм у відомих вам середовищах програмування?

Массив сначала заполнится так:
a[0]=0
a[1]=1
...
a[10]=10
0 1 2 3 4 5 6 7 8 9 10
во втором цикле:
в первом проходе:
0 1 2 3 4 5 6 7 8 9 0
последний элемент замениться на 1 элемент
во 2 проходе:
предпоследний элемент заменится на 2 элемент
0 1 2 3 4 5 6 7 8 1 0
и так дальше:
3)0 1 2 3 4 5 6 7 2 1 0 
4)0 1 2 3 4 5 6 3 2 1 0 
5)0 1 2 3 4 5 4 3 2 1 0 
6)0 1 2 3 4 5 4 3 2 1 0 
дальше массив изменятся не будет:
7)0 1 2 3 4 5 4 3 2 1 0 
8)0 1 2 3 4 5 4 3 2 1 0 
9)0 1 2 3 4 5 4 3 2 1 0 
10)0 1 2 3 4 5 4 3 2 1 0 
11)0 1 2 3 4 5 4 3 2 1 0 - полученный массив
ответ: 4

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами