РЕШИТЕ НА ПИТОНЕ ЧЕРЕЗ АЛГОРИТМЫ ЗАДАЧА 1
В связи с визитом Императора Палпатина было решено обновить состав дроидов в ангаре 32. Из-за кризиса было
решено новых дроидов не закупать, но выкинуть пару старых. Как известно, Палпатин не переносит дроидов с
маленькими серийными номерами, так что все, что требуется - найти среди них двух, у которых серийные номера
наименьшие.
*Входные данные*
Первая строка входного файла содержит целое число N количество дроидов. (2 5 N < 1000), вторая строка – N
целых чисел, по модулю не превышающих 2*109 - номера дроидов
*Выходные данные*
Выведите два числа: первым — последний по величине из номеров дроидов (такого следует утилизировать в первую
очередь), а вторым предпоследний.
*Примеры*
*Входные данные*
5,
10, 2, 3, 1, 5
выходные данные
1, 2

​

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.