10. Проверить является ли заданная строка шестизначным числом, записанным в десятичной системе счисления без нулей в старших разрядах. - пример правильных выражений: 123456, 234567. - пример неправильных выражений: 1234567, 12345.

Сначала проверим, сколько вообще знаков содержит введенная строка. Если их будет больше, чем шесть или меньше, чем шесть, будем останавливать алгоритм и выводить сообщение об ошибке.

Если их будет ровно шесть, отделим первый символ и рассмотрим его. По условию задачи в старших разрядах не должно содержаться нулей.

Если первый символ не ноль, выводим сообщение о том, что строка - шестизначное число.

var perem:string;

begin

if length (perem) 6 then

writeln ('В строке не шесть знаков!')

else

if perem[1] '0' then

writeln ('Число является шестизначным');

end.