Ответ:

var a:longint;

begin

   while True do begin

       write('Введите семизначное число: '); readln(a);

       if (a div 1000000 <> 0) and (a div 10000000 = 0) then break;

       writeln('Ошибка ввода: введённое число не является семизначным!');

   end;

   write('Разность произведения первой и третьей цифры и всех остальных равна: ',

       (a div 1000000) * ((a div 10000) mod 10) - ( ((a div 100000) mod 10) + ((a div 1000) mod 10) + ((a div 100) mod 10) + ((a div 10) mod 10) + (a mod 10)));

end.