Вводится четырехзначное число, вывести его цифры (используя div и mod) в строку через пробел и в столбик.

Насколько я помню,операторы div и mod - операторы деления.mod - возвращает остаток от деления,а div - наоборот,целую часть.алгоритм прост в данном случае: пусть число abcd - заданное пользователем число.тогда первая цифра будет равна : a = abcd div 1000 //a - число тысяч вторая : b = (abcd - (a*1000)) div 100 //b - число сотен третья : c = (abcd - (a*1000 + b*100)) div 10 // c - число десятков четвертая : d = abcd mod 10 // d - остаток от деления,в данном случае число единиц. остается только вывести a,b,c и d через пробел на экран.

  program proga;     var   a: text;       i,j,n,m : byte;         d: string;         sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                           readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                 writeln(a);                       end;                             close(a); end.