Оставь циклический алгоритм приготовления блинов

Подготовить тесто,нагреть сковороду,смазать маслом сковороду,разлить тесто по поверхности сковороды,круговыми движениями придать форму круга,поставить на огонь примерно на 30 секунд,перевернуть блин,перенести блин на тарелку,смазать блин маслом,посыпать сахаром блин,повторить.

Происхождение слова "алгоритм" связано с алгоритмами десятичной позиционной арифметики. правила действий с натуральными числами, записанными в десятичной системе счисления, были впервые найдены в средневековой индии. европейцы изучали их по книге великого арабского ученого ix в, которого звали мухаммед ибн муса аль-хорезми, что буквально означает "мухаммед, сын мусы, уроженец хорезма" (заметим, что аральское море тогда называлось "озером хорезм", а сам город хорезм был расположен в бассейне реки амударьи южнее этого моря) . книга ученого "китаб ал-хисаб ал-хинд" ("книга об индийском счете") послужила прототипом многих рукописей, составленных европейцами уже на латинском языке. в них имя ученого – аль-хорезми – латинизировалось и стало звучать как "алхоризм", "алгорифм" или "алгоритм". этим словом стали называть сами рукописи о десятичной арифметике и алгоритмы цифровых вычислений, а лишь затем его стали использовать для обозначения произвольных алгоритмов.

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.