Решение задачи File 3

import random

N = random.randrange(1,10)
A = random.randrange(-10,10)
D = round(random.uniform(-5,5),1)
print("N = ", N)
print("A = ", A)
print("D = ", D)

a = [A + i*D for i in range(N)]
print(a)

file_name = "file03.txt"
try:
    f = open(file_name, "w")
    f.write("N = " + (str)(N) + '; ')
    f.write("A = " + (str)(A) + '; ')
    f.write("D = " + (str)(D) + '\n')
    f.write(str(a))
except IOError:
    print('Файл не создан')
finally:
    f.close()
									

program File3;
var
 S:String;
 F: File of Real;
 i:integer;
 A,D,Num:Real;
begin
  Write('S: ');
  Readln(S);
  Write('A: ');
  Readln(A);
  Write('D: ');
  Readln(D);
  Assign(F,S);
  ReWrite(F);
  For i:=0 to 9 do
   begin
    Num:=A+i*D;
    Write(F, Num);
   end;
  Close(F);
end.