Привести варианты математических сопроцессоров

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

21 24 27 30 33 36 39 42 45 48 

по центру каждой стены  по  стулу  а также в каждый угол по стулу

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век