помогите...запуталась

[BumBum4ik]

Составить программу с подпрограммами. При написании программ использовать модульный принцип построения программ. Ввод данных - из файла. Вывод результатов - в файл и на экран
Вивести у виді таблиці tg(x) від 30о до 45о з кроком 0.1
как это сделала я((((

const
 rad = pi / 180;

 var
 x, y: Real;


 begin
 x := 30;
 while x <= 45 do begin
 y := tan(x * rad);
 WriteLn(x:6:1, y:10:4);
 x := x + 0.1;
 end;
 end.