Олимпиадная информатика - 2010

program o;
  const dl=1001;			{Устанавливаем предельное число цифр в длиннном числе }
    type dlin=array[0..dl]of integer;	{Вводим тип - длинные числа}
  var b,a:dlin;				{В решении будем использовать 2 длинных числа}
function cy(a,b:dlin):boolean;		{Функция сравнения 2 длинных чисел a и b принимает значание 
"истина", если a>=b и "ложь", если ab[0] then cy:=true else	{длина первого числа больше, т.е. a>b  } 
    begin if a[0]<b[0] then cy:=false 	{длина второго числа больше, т.е. a0) do i:=i-1;
	 {Пока цифры старшего разряда равны переходим 
	 на следующий младший разряд} 
     if a[i]<b[i] then cy:=false 	{a<b}
     else  cy:=true;			{a>=b}
     end;
  end;
 end;
procedure umnog(a,b:dlin; var c:dlin);	{Процедура вычитания из неменьшего длинного а длинного 
числа b}
    var i:integer;
begin 
   for i:=b[0]+1 to a[0] do b[i]:=0;	{Уравниваем длину чисел дописывая в b лидирующие нули}
   for i:=1 to a[0] do			{Для каждой цифры выполняем вычитание начиная с разряда единиц}
 begin
    if a[i]<b[i] then 
     begin 
      a[i]:=a[i]+10;a[i+1]:=a[i+1]-1;	{При необходимости занимаем 10 единц из более старшего 
	  разрядА}
     end;
    c[i]:=a[i]-b[i];			{выполняем иычитание в текущем разряде}			
 end;
 c[0]:=a[0]; 				{Устанавливаем длину результата}
 while (c[c[0]]=0) and(c[0]>0)do 	{Отбрасываем лидирующие нули}
 c[0]:=c[0]-1;				{Проверяем, не получился ли в результате ноль}
    if c[0]=0 then c[0]:=1;		{ноль - однозначное число}
end;
procedure ww(var b:dlin);		{Процедура ввода длинного числа b}
    var i : integer;s:string;z:array['0'..'9']of byte;q:char;
begin 
 readln(s);				{Запрос - ввод длинного числа в виде строковой переменной}
 z['0']:=0;
 for q:='1' to '9' do z[q]:=z[pred(q)]+1;{Заполнение массива цифр для перевода символов 
 в однозначные цифры}
 b[0]:=length(s);			{Длина длинного солва равна длине строки}
 for i:=1 to b[0] do b[i]:=z[s[b[0]+1-i]];{Запоминание в массиве очередной цифры, начинач 
 с КОНЦА строки}
end;
procedure zapis(a:dlin);var i:integer;	{Процедура вывода длинного числа a}
begin 
  for i:=a[0] downto 1 do write (a[i]); {выводим поочередно цифры, начиная со старшего разряда}
end; 

begin 
 assign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);
 ww(a);					{Ввод первого числа}
 ww(b); 				{Ввод второго числа}
 if cy(a,b) then umnog(a,b,a) else 	{Если a>=b, вычитаем и записываем результат в а}
 begin  
   write('-');umnog(b,a,a);		{Инача выводим знак минус и из второго вычитаем первое, 
   результат храним в а}
 end;
 zapis (a);				{Вывод модуля результата}
close(input);close(output);
end.






close