Алг
нач
цел а,с
а:=2154
с:=div(a,100)
a:=mod(a,100)
c:=a-c
вывод с​

Трудолюбивые лошади человеку уже много тысяч лет.

Сельское хозяйство: До изобретения машин человек использовал лошадей для распашки земли, переработки и перевозки урожая.

Война: Степные воины запрягали коней в лёгкие повозки - колесницы. Позже лошади возили на себе свирепых стрелков и рыцарей во время сражений.

Транспорт: Раньше лошади перевозили людей и почту на большие расстояния. Они считались самым быстрым наземным транспортом.

Спорт: К конным видам спорта относят поло, конкур, родео и другие. Также людям нравятся скачки, и они играют на ипподроме, ставя деньги на коня, который, по их мнению, придёт первым.

УдАчИ

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.