Даны числа а и b составьте алгоритм который заменит b нулем если число b меньшеa в противном случае оставит b без изменения. составить алгоритм и блок-схему

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n