Как выглядят корни лютика сейчас надо

Для начала следует отметить тот факт, что не следует путать оператор присваивания со знаком равенства в . оператор присваивания работает следующим образом. (на примере k : = 4+7) сначала вычисляется значение выражения справа от оператора (4+7 = 11), затем результат вычисления "записывается" в переменную из левой части оператора. в результате по имени этой переменной можно получить записанное значение и даже использовать его в других выражениях. "а : = 17" записываем в переменную а  значение 17."b : = 23"  записываем в переменную  b  значение 23. "b : = а + b + 1" сначала вычисляем выражение a+b+1 = 17+23+1 = 41. затем изменяем значение переменной b (теперь она хранит в себе 41)"а : = b + а"  сначала вычисляем выражение b+a = 41+17 = 58. затем изменяем значение переменной  a  (теперь она хранит в себе 58) ответ: 58

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n=',1000).select(t-> t/100).toarray;   a.println;   a.transform(t-> t.between(-4.7,-0.1)? t: -t); a.println end. пример n= 10 6.6 -4.4 -2.21 -4.95 -7.26 1.38 -5.8 0.77 -4.41 3.31 -6.6 -4.4 -2.21 4.95 7.26 -1.38 5.8 -0.77 -4.41 -3.31 begin   var n: =readinteger('n=');   var (max,k,tmp): =(integer.minvalue,0,0);   loop n do begin       read(tmp);       if tmp> max then (max,k): =(tmp,1)       else if tmp=max then k+=1       end;   writeln('максимум ',max,' встречен ',k,' раз(а)') end. пример n= 8 -6 -9 12 7 -5 12 10 -3 максимум 12 встречен 2 раз(а)