[boobonick]

Здравствуйте, а есть какой-нибудь оператор, который позволяет сделать действие единожды. Мне на ум только такая конструкция приходит:

i=0;

if i=0 then begin

Действие;

i:=1;
end;

[friz]

хм... никогда не думал что если я напишу например:

Код:

1 2 3 4 5

var a:byte; begin a:=1; a:=a+2; end;

То данное выражение выполниться 17 раз..хм...

Давай конкретное задание что надо реализовать