1. От каких факторов зависит выбор структуры диалога в пользовательском интерфейсе? 2. В чем состоят особенности проектирования пользовательского интерфейса на основе использования экранных форм?
3. Приведите классификацию экранных форм в зависимости от назначения.

Uses crt;
var
  chislo,i,happy,ten: integer;
  a: array [1..6] of integer;
begin
  happy := 100002; {наименьшее число,кратное 7}
  ten:=1; {счётчик колонок}
  while happy<999999 do
  begin
  {делим число happy на цифры с временной переменной chislo}
  {и сохраняем эти цифры в массиве а}
    chislo := happy;
    for  i:= 1 to 6 do
    begin
      a[i] := chislo mod 10;
      chislo:= chislo div 10;
    end;
   {проверяем,счастливое ли число}
    if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then
      begin
       {если счастливое,то выводим}
        write(happy,' ');
        ten:=ten+1;
        if ten>10 then
          {если уже напечатано 10 чисел, то переходим в новую строку}
          begin
            ten:=1;
            writeln();
          end;
      end;
    happy:=happy+7;
  end;
end.

Const n=10;
var a:array [1..n] of integer;
i,j,k,l:integer;
begin
{создание и вывод массива}
for i:=1 to n do
    begin
    a[i]:=random(21)-10;
    write (a[i],' ');
    end;
writeln;
{сортировка массива}
for j:=1 to n do
for i:=1 to n-1 do
if a[i]>a[i+1] then
   begin
   k:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=k;
   end;
{Удаление нулей}
k:=0;
while k<>n do
      begin
      k:=k+1;
      if a[k]=0 then
         begin
         l:=l+1;
         for i:=k to n-1 do
         a[i]:=a[i+1];
         end;
      end;
{Вывод массива}
for i:=1 to n-l do
write (a[i],' ');
end.