Необходимо напечатать статью в газету о событии. С каким расширением нужно сохранить эти данные

​

С ЦИКЛАМИ:
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.