На массив выведите на экран значения положительных элементов, меньших 100

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

напиши само ,я

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.