Задача 15.1. Записати у файл cgisla.dat 100 перших цiлих чисел.

Program Pr15_1;
Var f:file of integer; {Файл цiлих чисел}
    i:integer;
begin
assign(f,'chisla.dat'); {Задати iм'я файлу}
rewrite(f); {Вiдкрити файл для читання}
 for i:=1 to 100 do
write(f,i); {Записати у файл число i}
close(f); {Закрити файл}
end.

Завдання 15.1. Записати у файл parni.dat 20 перших парних чисел.