Ответ:

var a:longint; begin while True do begin write(Bведите семизначное число: "); readln(a); if (a div 1000000 <> 0) and (а div 10000000 %3D 0) then break; writeln(Oшибка ввода: введённое число не является семизначным!"); end; write(Pазность произведения первой и третьей цифры и всех остальных равна: , (a div 1000000) * (a div 10000) mod 10) - ( (а div 100000) mod 10) + (a div 1000) mod 10) + ((a div 100) mod 10) + (а div 10) mod 10) + (a mod 10))); end.