Х:=1 while x<0 do begin writeln (x) x:=x+1 end сколько раз выполняются команды цикла
Так как x=1, а в условии - если x<0, то цикл выполнится 0 раз.</p>