Дана таблица учета пропусков урока учащихся. Напишите функцию для вычисления количества ДНЕЙ, когда Елена пропустила уроки. Числа в таблица это пропущенные уроки

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.

/gamemode survival или creative или adventure - позволяет включить другой режим игры, survival - Выживание, creative - Креатив, adventure - приключенческий.

В режиме креатива вы бессмертны, можете летать, а в инвентаре у вас все существующие блоки.

/time set day - включить день

/time set night - включить ночь

/xp 100 - получить 100 опыта (число можно менять).

/xp Игрок 100 - дать игроку 100 опыта.

/weather set clear - выключает дождь\снег.

/weather set rain - включает дождь\снег.

/toggledownfal - переключает погоду с одной на другую, с ясной на дождливую например.

/tp [ник игрока 1] [ник игрока 2] - позволяет телепортировать игрока 1 к игроку 2

/tp [игрок] [x] [y] [z] - телепортировать игрока по координатам x,y,z

/spawnpoint [имя игрока] [x] [y] [z] - позволяет указать точку спавна игрока в мире, если ккординаты x,y,z не указаны, то точкой станет то место где вы стоите.

/setworldspawn - установит точку спавна для всех игроков

/effect [имя игрока] [эффект] [длительность] [уровень] - позволяет наложить определенный эффект на игрока.

Пример: /effect Anton 25 100 5 - наложит на игрока Anton эффект левитации на 100 секунд с силой 5.

Список эффектов

/effect [имя игрока] clear - удалить все наложенные на игрока эффекты

/enchant [имя игрока] [эффект] [уровень] - зачаровывает предмет находящийся в руках.

Например /enchant Anton 22 2 - зачарует предмет в руках игрока Anton на чары "Разящий клинок 2"

Список чар:

/kill - убить вашего персонажа

/kill Игрок - убить игрока

Читы на получение предметов:

Данные команды сложны для запоминания, для получение предметов лучше установить мод JEI или NEI (включить в них режим жульничества).

Наиболее ценные предметы:

/give Игрок minecraft:diamond 64 - получить 64 алмаза

/give Игрок minecraft:diamond_horse_armor - получить броню лошади

/give Игрок minecraft:map - получить карту

/give Игрок minecraft:compass - получить компас

/give Игрок minecraft:golden_apple - получить золотое яблоко

/give Игрок minecraft:tnt 64 - получить 64 динамита

/give Игрок minecraft:mob_spawner - получить спавнер монстров

/give игрок spawn_egg 1 0 {EntityTag:{id:creeper}} - получить яйцо спавна крипера

/give игрок minecraft:elytra - получить элитруname_tag

/give игрок minecraft:name_tag - получить бирку

/give игрок minecraft:ender_pearl - получить эндер жемчуг

/give игрок minecraft:nether_star - получить звезду края

/give игрок minecraft:gunpowder - получит порох

/give игрок minecraft:saddle - получить седло

Объяснение: