ЗАДАЧА ПО ПИТОНУ Трискайдекафобия
Трискайдекафобия — боязнь числа 13. В особо сложных формах пациент боится и всех чисел, кратных 13

Если требуется проверка, чтобы число N было меньше 10000:

N = int(input())  

if N < 10000:  

   while N % 13 != 0:  

       print(N)  

       N += 1  

else:  

   print('Введите число, не превосходящее 10000')

Если не требуется проверка, чтобы число N было меньше 10000:

N = int(input())    

while N % 13 != 0:  

   print(N)  

   N += 1  

Объяснение:

На фото

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

в цикле sum [i]: =sum+mas[i,j];