Паскаль АВС:

Program Greenpigs;
uses crt;
var
  Lmile, Wmile, Lyard, Wyard, Lfoot, Wfoot, Linch, Winch, Lline, Wline:integer;
begin
  writeln('Введите длину:');
  writeln('Мили, ярды, футы, дюймы, линии:');
  repeat
    readln (Lmile, Lyard, Lfoot, Linch, Lline);
  until ((Lmile>=0)and(Lmile=0)and(Lyard=0)and(Lfoot=0)and(Linch=0)and(Lline<12));
  writeln('Введите ширину:');
  writeln('Мили, ярды, футы, дюймы, линии:');
repeat
  readln (Wmile, Wyard, Wfoot, Winch, Wline);
until ((Wmile>=0)and(Wmile=0)and(Wyard=0)and(Wfoot=0)and(Winch=0)and(Wline<12));
  Lmile:=2*(Lmile+Wmile);
  Lyard:=2*(Lyard+Wyard);
  Lfoot:=2*(Lfoot+Wfoot);
  Linch:=2*(Linch+Winch);
  Lline:=2*(Lline+Wline);
  while (Lline>=12) do
    begin
       Lline:=Lline-12;
       Linch:=Linch+1;
    end;
  while (Linch>=12) do
    begin
       Linch:=Linch-12;
       Lfoot:=Lfoot+1;
    end;
  while (Lfoot>=3) do
    begin
       Lfoot:=Lfoot-3;
       Lyard:=Lyard+1;
    end;
  while (Lyard>=1760) do
    begin
       Lyard:=Lyard-1760;
       Lmile:=Lmile+1
    end; 
writeln('Периметр равен ',Lmile,' мл. ',Lyard,' ярд. ',Lfoot,' фт. ',Linch,' дюйм. ',Lline,' лн. ');
end.