Среди заданных целых чисел k, f, t найти пары кратных. нужна блок схема .

ответ:Ужасы или хоррор (англ. horror) — жанр фантастики, который предназначен устрашить, напугать, шокировать или вызвать отвращение у своих читателей или зрителей, вызвав у них чувства ужаса и шока. Литературный историк Дж. А. Куддон[en] определил ужасы как «фрагмент художественной литературы в прозе переменной длины … которая шокирует или даже пугает читателя, или, возможно, вызывает чувство отвращения или антипатии».[1] Авторы произведений в жанре «ужасы» создают жуткую и пугающую атмосферу. Ужас часто сверхъестественный, хотя может быть и не сверхъестественным. Часто главная угроза произведения в жанре «ужасы» может быть истолкована как метафора больших опасений общества: фильмы о зомби — страх перед каннибализмом, о оборотнях — самого себя, о вампирах — некрофилии, слэшеры — серийных убийц и

Объяснение:

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadReal('Площадь решета равна');
  var a:=ReadArrReal('Введите диаметры клубней:',10);
  var d:=sqrt(4*s/pi);
  var b:=a.Where(x->x<d);
  var n:=b.Count;
  if n>0 then begin
    Write('Пройдут клубни диаметром '); b.Print;
    Writeln(' - всего ',n,' шт.')
    end
  else Writeln('Ни один клубень не пройдет')
end.

Пример
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.