unit Long;

interface

const

  osn = 10000;   {Порядок каждого числа}

  MaxDig = 1000; {Максимальное количество элементов}

type

  TLong = array[0..MaxDig] of integer; {Длинное число}

implementation

end.

a[0] = 3

a[1] = 6789;

a[2] = 2345;

a[3] = 1;

procedure Long_Read(var f:text; var a:TLong); {Читает длинное число из консоли или из файла}

var                                 {откуда будет производиться чтение, зависит от переменной F}

  ch:char;

  i:integer;

begin

  FillChar(a,Sizeof(A),0);         {Заполняем массив нулями}

  repeat                           {Пропускаем НЕ цифры вначале файла}

    Read(f,ch);                    

  until ch in ['0'..'9'];

  while ch in ['0'..'9'] do        {Начинаем читать цифры}

    begin

      for i := a[0] downto 1 do

        begin

          a[i+1] := a[i+1]+(Longint(a[i])*10) div osn;  {Записываем цифры в массив}

          a[i]   := (Longint(a[i])*10) mod osn;

        end;

      a[1] := a[1]+Ord(ch)-ord('0');

      if a[a[0]+1]>0 then inc(a[0]); {Если элемент текущий элемент заполнили, то переходим к следующему}

      Read(f,ch)                   {Читаем след. символ}  

    end

end;

{-----------------------------------------------------------------------------------------}

procedure Long_Write(var f:text; const a:TLong);     {Выводит число в файл или в консоль}

var

  ls,s:string;

  i:integer;

begin

  Str(Osn div 10,ls);  {Преобразуем в стоку osn div 10}

  Write(f,A[A[0]]);    {Выводим последний элемент}

  for i := a[0]-1 downto 1 do

    begin

      Str(a[i],s);     {Преобразуем в стороку каждый след. элемент}

      while Length(s)<Length(ls) do s := '0'+s;  {Если длина строки не равна lg(osn), то ставим перед ней 0}

      Write(f,s);             {Печатаем строку}

    end;

  WriteLn

end;

uses LongMath;

var

  a,b,c : TLong;

  x,y,z : TComplex;

  

begin

  WriteLn ('Введите 2 длинных числа:');

  Long_Read(input,a); {Читаем с клавиатура а и b}

  Long_Read(input,b);

  if Long_Equal(a,b) then WriteLn('Числа a и b равны') {Сравниваем числа}

  else

    begin

      if Long_Less(a,b) then WriteLn('a меньше b');

      if Long_Above(a,b) then WriteLn('a больше b');

    end;

  WriteLn ('Нажмите Ввод для продолжения');

  ReadLn;

 

  Long_Add(a,b,c);    {c := a+b}

  WriteLn('Сумма x и y равна '); {Выводим сумму на экран}

  Long_Write (output, c);

 

  WriteLn ('Нажмите Ввод для продолжения');

  readln;

end.