Помогите в паскале, дроби нужен код, денег нету, если есть нормальные люди а не транжиры помогите аааа)

function NOD(a,b: Integer): Integer;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
NOD := a + b;
end;
var a,b,c,d:integer;
begin
readln(a,b,c,d);
a:=a*d;
b:=b*d;
c:=c*b;
a:=a+c;
d:=NOD(a,b);
a:=a div d;
b:=b div d;
writeln(a,'/',b);
end.

Транжира - ты. У тебя было время это сделать самому, а ты его растранжирил...

типо так в паскаль сам переведешь
#include < iostream >
using namespace std;
int nod(int a, int b)
{
int t;
if (a < b)
{
t = a;
a = b;
b = t;
}
t = 2;
int i = a;
while (a % b != 0)
{
a = i * t;
t++;
}
return a;
}
int _tmain(int argc, _TCHAR* argv[])
{
int res,t;
int a, b, c, d;
cin >> a;
cin >> b;
cin >> c;
cin >> d;
res = nod(b, d);
a *= res / b;
c *= res / d;
t = a + c;
d = nod(res, t);
cout << d / res << " / " << d / t << "\n";
system("pause");
return 0;
}

Все коды на паскале, которые тебе нужны, уже есть в инете - только не ленись искать в гугле и яндексе.