Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. пример 12341 2 3 4

Procedure print(a: integer); var   i: integer;   s: string; begin   str(a, s);   for i : = 1 to length(s) do     writeln(s[i]); end;

1  var a: array[1..10000000] of integer; sk: real; i,n: integer; begin write('размер массива - '); readln(n); write('заполните массив - '); for i: =1 to n do begin read(a[i]); end; for i: =1 to n do begin write(a[i]+5,' '); end; writeln(); for i: =1 to n do sk: =sk+sqrt(a[i]); write('сумма квадратов ',sk); end.2 vara: array[1..12] of real; max,min: real; i: integer; beginwrite('введите сред. t за каждый месяц - '); for i: =1 to 12 dobeginread(a[i]); end; max: =a[1];   for i: =1 to 12 do  beginif a[i]> max then max: =a[i]; end; min: =a[1];   for i: =1 to 12 do  beginif a[i]< min then min: =a[i]; end; writeln('максимальная t за год - ',max,' градусов. минимальная t за год - ',min,' градусов.'); end.3 vara: array[1..12] of real; sum: real; i: integer; beginwrite('введите учеников - '); for i: =1 to 12 dobeginread(a[i]); end; for i: =1 to 12 dobeginsum: =sum+a[i]; end; sum: =sum/12; writeln('средний уровень успеваемости - ',sum); end.

{запись 5 строк в файл  } procedure tform1.button1click(sender: tobject); var outfile: textfile; begin assignfile(outfile, 'outfile.txt') ; rewrite(outfile); writeln(outfile, ' из delphi'); writeln(outfile, 'моя программа работает, и выводит ' +'данный текст, чтобы доказать '); writeln(outfile, '3. треться строка'); writeln(outfile, '234 четвертая'); writeln(outfile, 'пятая строка'); closefile(outfile); end; // вывод на экран точнее в мемо или лист боксprocedure tform1.button2click(sender: tobject); begin  // выводим в мемо  memo1.lines.loadfromfile('outfile.txt'); // либо в лист бокс  как тебе лучше  listbox1.items.loadfromfile('outfile.txt'); end; // кнопка для закрытия  procedure tform1.button3click(sender: tobject); begin  close; end; // событие oncloseprocedure tform1.formclose(sender: tobject; var closeaction: tcloseaction); begin  if messagedlg('вы точно хотите выйти? ',      mtconfirmation, mbokcancel,0)= mrok then begin      closeaction: = cafree;           end  else begin      closeaction: = canone;   end; end; здесь! outfile.txt - это ваш файл(может создаваться автоматическичто нужно сделать? 1. закинуть на форму 3 кнопки2. закинуть listbox или memo3. в событиях формы в инспекторе объектов (инспетор объектов/ события/ onclose) в onclose выбрать процедуру formclose