как написать модуль на паскале для программы

program slslsl;
var a,b,c,d,e,f,min:integer;l,m,n:real;H,J:real;i:longint;
begin
writeln('vvedite znamenatel 1go chisla');
readln(a);
writeln('vvedite chislitel 1go chisla');
readln(b);
writeln('vvedite znamenatel 2go chisla');
readln(c);
writeln('vvedite chislitel 2go chisla');
readln(d);
writeln(a,'/',b);
writeln(c,'/',d);
l:=a/b;
m:=c/d;
min:=10000;
for i:=1 to 10000 do
begin
if ((i mod b)=0) and ((i mod d)=0) then
if i<min then min:=i;
end;
writeln('otvet=',(min*l+min*m),'/',min);
readln;
end.

Примечание:
нужно написать программы для дробных чисел (например 4/9) ,а именно на сложение,вычитание,деление,умножение,нажлждение нод и сокращение дроби. а затем запихнуть все в один модуль

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.