Программа с модулем

[KIRILOW]

Здравствуйте!!! Прикрепил задание. Написал код. Нужен код с модулем.

Вот код:

uses crt;
const PI = 3.1415926;
var a, b, c:real;
    alfa, gamma, betta:real;{Ugli pri storonah alfa -> bc, betta -> cd, gamma -> ba}

{Перевод градусов в радианы}
function GradToRad(x:real):real;
begin
GradToRad := x * PI / 180;
end;
{Перевода радиан в градусы}
function RadToGrad(x:real):real;
begin
RadToGrad := x * 180 / PI;
end;
{Запишем арккосинус как пи/2 - арксинус, а арксинус через акртангенс, в итоге получим пи/2 - арктангенс}
function Arccos(x:real):real;
begin
Arccos := PI/2 - arctan(x / sqrt(1 - x*x));
end;

begin
clrscr;
writeln('Vvedite storoni treugolnikov: ');
repeat
write('a = ');read(a);
write('b = ');read(b);
write('c = ');read(c);
{read(a, b, c);}
if(a>=b+c)or(b>=a+c)or(c>=a+b) then writeln('Eto ne treugolnik');
{проверяем длины сторон, если введены некоректные, запросим повторно и выведем сообщение о том что треугольник не построить из таких сторон}
until (a < b + c) and (b < a + c) and (c < a + b);

{Используя теорему косинусов вычисляем все углы}
alfa  := arccos((b*b + c*c - a*a) / (2*b*c));
betta := arccos((a*a + c*c - b*b) / (2*a*c));
gamma := arccos((a*a + b*b - c*c) / (2*a*b));

{Переводим результат в радианы и печатаем ответ}
writeln('alfa(ugol mejdu storonami bc) = ', RadToGrad(alfa):8:4);
writeln('betta(ugol mejdu storonami ac) = ', RadToGrad(betta):8:4);
writeln('gamma(ugol mejdu storonami ba) - ', RadToGrad(gamma):8:4);

readkey;{задержка ввода}
end.

[Stilet]

unit q;
interface
const PI = 3.1415926;
var a, b, c:real;
    alfa, gamma, betta:real;{Ugli pri storonah alfa -> bc, betta -> cd, gamma -> ba}

{Перевод градусов в радианы}
function GradToRad(x:real):real;
function RadToGrad(x:real):real;
function Arccos(x:real):real;

implementation

{Перевод градусов в радианы}
function GradToRad(x:real):real;
begin
GradToRad := x * PI / 180;
end;

{Перевода радиан в градусы}
function RadToGrad(x:real):real;
begin
RadToGrad := x * 180 / PI;
end;

{Запишем арккосинус как пи/2 - арксинус, а арксинус через акртангенс, в итоге получим пи/2 - арктангенс}
function Arccos(x:real):real;
begin
Arccos := PI/2 - arctan(x / sqrt(1 - x*x));
end;

end.

Прога:

uses crt,q;

begin
clrscr;
writeln('Vvedite storoni treugolnikov: ');
repeat
write('a = ');read(a);
write('b = ');read(b);
write('c = ');read(c);
{read(a, b, c);}
if(a>=b+c)or(b>=a+c)or(c>=a+b) then writeln('Eto ne treugolnik');
{проверяем длины сторон, если введены некоректные, запросим повторно и выведем сообщение о том что треугольник не построить из таких сторон}
until (a < b + c) and (b < a + c) and (c < a + b);

{Используя теорему косинусов вычисляем все углы}
alfa  := arccos((b*b + c*c - a*a) / (2*b*c));
betta := arccos((a*a + c*c - b*b) / (2*a*c));
gamma := arccos((a*a + b*b - c*c) / (2*a*b));

{Переводим результат в радианы и печатаем ответ}
writeln('alfa(ugol mejdu storonami bc) = ', RadToGrad(alfa):8:4);
writeln('betta(ugol mejdu storonami ac) = ', RadToGrad(betta):8:4);
writeln('gamma(ugol mejdu storonami ba) - ', RadToGrad(gamma):8:4);

readkey;{задержка ввода}
end.

Не проверял.