4. Виконайте алгоритм:
1. Задумати два цілих числа.
2. Обчислити добуток задуманих чисел.
3. Порівняти «Знайдений добуток дорівнює 100».
4. Якщо Так, повідомити «Дорівнює» і виконати команду 5,
якщо ні, повідомити «Не дорівнює» і виконати команду 5.
5. Закінчити виконання алгоритму.
6.​

Напиши свою команду действий

Объяснение:Тоесть как в математике только с этими во

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.