помогите исправить ошибки(((

[BumBum4ik]

uses BumBum4ik;
const
  rad = pi / 180;
unit BumBum4ik; 
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.

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

[type_Oleg]

Вы просто сгребли в одну кучу то, что я вам написал, даже не попытавшись понять, что значит uses и unit.
В надежде, что кто-нибудь, не обращая внимания на код, напишет нормальную программу.

Так как у вас нет желания понять суть вопроса, у меня больше нет желания вам в чем нибудь помогать.

[BumBum4ik]

да перчитал я литературу,мне надо пару програмок написать,ну не могу я разобраться во всём этом...unit-имя модуля,uses-список имён модулей.ну я читал там ещё есть implentation и interface?куда их.я не понимаю,ну не понимаюя в програмировании

[type_Oleg]

Суть модульного принципа:
Имеется программа prBu, в которой используется модуль BumBum4ik
Сама программа, то есть ее исходный код - это файл prBu.pas , вот его содержимое

program prBu;
uses BumBum4ik;
// и т.д.
end.

Модуль - это другой файл, BumBum4ik.pas. Его содержимое

unit BumBum4ik;
interface // в этом разделе - то, что видно и из программы, и из модуля
const rad = pi / 180;
// и т .д. обычно объявляются всякие функции и процедуры
implementation   // в этом разделе - то, что видно только из этого модуля
// и т.д.
end.

В данном случае, модуль использоват только для описания одной константы. Практического смысла в такой мелочи нет, просто пример.

[BumBum4ik]

чесно,спасибо,прояснилось...чуть чуть и понятнее стало...спасибо..