Скласти алгоритм на тему "я хочу чаю"

"я хочу чаю" 1. если чай для заварки есть, перейти к 3 2. купить чай для заварки 3. если в чайнике нет воды, перейти к 5 4. вылить из чайника остатки воды 5. наполнить чайник свежей водой 6. начать нагрев воды в чайнике    7. если чай завариваем из пакетика, перейти к 20 8. если в заварочный чайник пуст, перейти к 10 9.  очистить и вымыть заварочный чайник 10. положить заварку в заварочный чайник 11. если вода в чайнике закипела, перейти к 14 12. подождать 10с (можно другое время) 13. перейти к 11 14. залить заварку в заварочном чайнике водой 15. ждать 1 мин 16. если чай заварен недостаточно, перейти к 15 17. налить заварку в чашку 18. добавить в чашку воды 19 перейти к 24 20 налить воды в чашку 21 положить в чашку пакетик с чаем 22 ждать 30с 23 если чай заварен недостаточно, перейти к 22 24 если чай без сахара, перейти к 26 25 добавить сахар в чай 26. пить чай

Взапись student добавляете новое поле kurs, type student = recordlastname: string ;   bal: array [1..5] of integer;   kurs: integer; average: real  end; в цикле по студентам добавляете ввод курса with pupil[i] do begin write ('введите фамилию студента №', i ,': ');   readln (lastname);   write('введите курс '); readln(kurs); в конце программы изменяете вывод writeln ( 'студенты первокурсники, имеющие средний больший или равный 4'); for i: =1 to n do beginif (pupil[i].average > =4) and (pupil[i].kurs = 1) then  write (pupil[i].lastname,',  ');

Сначала стоит немного подумать над , а не писать "в лоб". если число кратно 2 и одновременно 3, то оно кратно и их произведению, т.е. 2 х 3 = 6. ближайшее число, превышающее 10 и кратное 6 - это 12. начинаем от него и идем с шагом 6, пока не превысим 99. 1. так можно решить по-современному: // pascalabc.net 3.1, сборка 1190 от 05.03.2016 begin   writeln('искомая сумма равна ',range(12,99,6).sum) end. результат выполнения программы искомая сумма равна 810 2. а так - "по-школьному": // pascalabc.net 3.1, сборка 1190 от 05.03.2016 var   i,s: integer; begin   i: =12;   s: =0;   while i< =99 do begin       s: =s+i;       i: =i+6       end;   writeln('искомая сумма равна ',s) end.