Как написать программу на паскале - a/b + c/d = ad + bc/bd

Program Z1;

Var a, b, c, d,e,f,g,h,i.j.k.l:integer;

begin

writeln('Введите переменную a');

readln(a);

writeln('Введите переменную b');

readln(b);

writeln('Введите переменную c');

readln(c);

writeln('Введите переменную d');

readln(d);

e:=a/b;

f:=c/d;

g:=e+f;

h:=a*d;

i:=b*c;

j:=b*d;

k:=i/j;

l:=h+k;

if (g==l) then writeln('chisla ravny');

else writeln('ne ravny');

end.