Про вывод в цикле Опции

[>hamka<]

В цикле выводится сообщение. Оно выводится столько раз, скока неправильно. А как сделать, чтобы только один раз оно выводилось?

[volvo]

Ну и сколько раз я должен писАть одно и то же? Если Вам решение не нравится, Вы бы хоть сказали, чем именно. Двумя постами выше написано:

Код

{ Чуть-чуть изменено (для учета одного '0')}
Function LeadZeroes(s: string): string;
begin
  if s <> '0' then
    while s[1] = '0' Do delete(s, 1, 1);
  LeadZeroes := s
end;

Ну так примените это:

Код

readln(n);
n := LeadZeroes(n);

{ продолжаем работать с N}
if n = '' then { введено только несколько нулей - ошибка }
else { начальные нули успешно удалены или был один '0'}

Кстати, что за метка main? куда она ведет? И почему опять метки, Вам что процедурами пользоваться нельзя.