Пошагавая инструкция по преобразовываниб из 2ух файлов (xml,xsl) в один (html)

Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
  begin
    while y>0 do
      begin
        c:=x mod y;
        x:=y;
        y:=c;
      end;
      NOD:=x;
  end;
Function NoK(x,y:longint):longint;
  begin
    NOK:=(x*y) div NOD(x,y);
  end;
begin
  readln(a,b,c,d);
  n:=NoK(b,d);
  a:=a*(n div b);
  c:=c*(n div d);
  m:=a+c;
  k:=nod(a,c);
  write(m div k, ,n div k);
end

* обозначается любое кол-во символов, ?-один любой символ

Ксюша взела сливы Лена груши а Даша яблоки.Идти в театр надо было сначала по прямой а потом направо. Змея победил Добрыня Никитич.