Задача 15.3. Скласти програму для запису у текстовий файл послiдовностi дiйсних чисел (через пробiл), котрi вводяться з клавiатури. Умовою закiнчення вводу є введення вiд'ємного числа.

Program pr1;
 Var f: text;
      a: real;
Begin
 assign (f,'dani.txt');
 rewrite(f);
  a:=0;
 while a>=0 do
 begin
 write('Введiть число '); readln(a);
 write(f,a:5:2,' ');
 end;
 close(f);
end.

Завдання 15.3. Записати у текстовий файл додатні значення синуса за один період.