Who can help with Pascal

1.Для создания файла используй эту программу:

var
f : file of integer;
i, n, z : integer;
begin
write('сколько чисел записать в новый типизировынный файл: ');
readln(n);
assign(f, 'nastya210171.int');
rewrite(f); {открыли файл на запись}
for i := 1 to n do
begin
write(i, ' число: ');
readln(z);
write(f, z) {вывели i число в файл}
end;
close(f); {закрыли файл}
writeln('файл создан!')
end.

Code

var

  f : file of integer;

  i, n, z : integer;

begin

  write('сколько чисел записать в новый типизировынный файл: ');

  readln(n);

  assign(f, 'nastya210171.int');

  rewrite(f); {открыли файл на запись}

  for i := 1 to n do

  begin

    write(i, ' число: ');

    readln(z);

    write(f, z) {вывели i число в файл}

  end;

  close(f); {закрыли файл}

  writeln('файл создан!')

end.

Для выполнения задания:

var
f : file of integer;
z, k : integer;
s : real;
begin
s := 0; {начальное значение суммы}
k := 0; {начальное значение количества}
assign(f, 'nastya210171.int');
reset(f); {открыли файл на чтение}
while not EOF(f) do {пока не конец файла выполнять}
begin
read(f, z);
write(z:4);
s := s + z;
inc(k)
end;
writeln;
close(f); {файл закрыли ибо все считали}
writeln('сумма элементов: ', s);
writeln('кол-во элементов: ', k);
writeln('среднее: ', (s / k):0:4)
end.

Code

var

  f : file of integer;

  z, k : integer;

  s : real;

begin

  s := 0; {начальное значение суммы}

  k := 0; {начальное значение количества}

  assign(f, 'nastya210171.int');

  reset(f); {открыли файл на чтение}

  while not EOF(f) do {пока не конец файла выполнять}

  begin

    read(f, z);

    write(z:4);

    s := s + z;

    inc(k)

  end;

  writeln;

  close(f); {файл закрыли ибо все считали}

  writeln('сумма элементов: ', s);

  writeln('кол-во элементов: ', k);

  writeln('среднее: ', (s / k):0:4)

end.

Хз помог не помог? И правильно ли это?

 

Я вот только начну изучать)будет моим первым языком

 

чо ебат, инфортичка ебет?