Алгоритм приготовления обеда методом покровой детализации (например, борщ)​

21 24 27 30 33 36 39 42 45 48 

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.