Работа с файлами, на языке c# слова текста, расположенного в текстовом файле, вывести на экран в виде строки и в виде столбика.

Способ с циклами: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифм. прогресии: '); readln(n); for i: =1 to n do a: =a+d; writeln(n, ' член арифметической прогресии равен : ', a); end. способ без циклов: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифметической прогресии: '); readln(n); writeln(' ответ: ', a+d*(n-1)); end.

Program znanija; var a: array[1..20] of integer;     i,k,min,n: integer; begin min: =1000000000; // прощу прощение за такое )  for i: =1 to 20 do  a[i]: =random(9); // заполняем массив  for i: =1 to high(a) do  // находим минимальное нечётное, запоминаем его номер if (a[i] < min) and (a[i] mod 2 < > 0)  then begin n: =i; min: =a[i]; end;     for i: =1 to 20 do  write(a[i]: 3);       // выводит весь массив  writeln();   // просто перевод на новую строку для красоты  writeln('minimum: ',min,' ego nomer: ',n); // выдаём минимальное и его номер end.