Задача 15.2. Зчитати з файлу cgisla.dat 100 цiлих чисел.

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

Завдання 15.2.1. Записати у файл синуси цiлих чисел вiд 1 до 100;
Завдання 15.2.2. Зчитати з файлу записанi значення.