Подпишите структуры окна текстового редактора ​

Вроде так var  i: word;   begin  writeln('mod 133 = 125: ');   for i: =10000 to 99999 do  if (i mod 133 = 125) then write(i,' ');   writeln;   writeln('mod 134 = 111: ');   for i: =10000 to 99999 do  if (i mod 134 = 111) then write(i,' ');   readln(); end.

Поищи етот фильм на других сайтах,ютубе если его нету нигде то я не знаю: /

Var r: array [0..4] of string = ('ноль','один', 'два', 'три', 'четыре') ; n, x: integer; begin write('n=') ; readln(n) ; x: =n mod 5; writeln('n=5k+', r[x]); readln() ; end.