Осы 3 есепті шешіп беріңіздерші, алдын ала үлкен рахмет)​

Хо́стинг (англ. hosting) — услуга по предоставлению ресурсов для размещения информации на сервере, постоянно имеющем доступ к сети (обычно Интернет). Обычно услуга хостинга входит в пакет по обслуживанию сайта и подразумевает как минимум услугу размещения файлов сайта на сервере, на котором запущено ПО, необходимое для обработки запросов к этим файлам (веб-сервер).

Бесплатный хостинг подойдет для начинающих пользователей, которые хотят понять, как разместить свой проект в интернете, публикуют личные страницы или просто экспериментируют.

Особенности платного хостинга – это полные противоположности минусам, которые перечислены выше. Недостаток лишь один – за предоставление таких услуг нужно платить. Но можно ли назвать это недостатком? Например, отправляясь в командировку, мы выбираем себе номер в гостинице по критериям комфорта и уровня обслуживания. То же и с хостингом – за качество нужно платить. И это абсолютно нормально.

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.