Назвали так потому, что в них используется Флэш-память
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
<h2>И это - всё !</h2>
Var q: integer;
<span> s: real;
</span><span>begin
</span><span> q:=0;
</span><span> repeat
</span><span> inc(q);
</span><span> s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
</span><span> until s<0;
</span><span> writeln('объем выпуска: ',q);
</span><span> s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
</span><span> writeln('затраты на единицу: ',s:5:2);
</span><span>end.
</span>объем выпуска: 86
<span>затраты на единицу: 269.45
</span>
Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>