за один маленький ответ
Якый це алгоритм"Якщо на дворі сніг, тр будемо кататися на санках​

Положительные качества данного гаджета:

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

Естественным и самым используемым качеством является полная совместимость очков со всеми современными игровыми приставками, что собственно и поднимает популярность виртуальных очков.

Кроме игры такие очки подразумевают просмотр фильмов, новые работы, открываются новые возможности для моделирования и рисования.

Чаще всего внешний вид гаджета выглядит очень интересно и привлекательно.

Отличное погружение в цифровую реальность дополняется качественным звуком и датчиками которые синхронизируют физические движения с виртуальными.

Отрицательные качества данного гаджета:

Стоит такой прибор довольно внушительную сумму, к тому же чем лучше его качество и дизайн, тем выше его цена.

Если установлены не все датчики, значительно ухудшается синхронизация, что сказывается на комфорте пользователя. Как правило, это возможно в более дешевых моделях.

Для полноценной хорошей работы подключать устройство нужно только к мощным компьютерам или телефонам.

Правильно настроить гаджет при необходимости сможет далеко не каждый.

Иногда маленькое расширение мешает получить качественное изображение.

Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer; 
Begin                   
writeln ('Введите число');
readln(n);                                    
writeln('Делители числа:');  
for i := 1 to n div 2 do     
  if (n mod i) = 0 then begin 
    write(i,'  ');
  end;         
End.       

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
  a, b, x, y, nod: integer;

begin
  writeln('Введите a,b');
  readln(a, b);
  x := a;y := b;
  while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
  nod := x;
  writeln('NOD(', a, ',', b, ')=', nod);
end.