х:=1
while x<0 do
begin
writeln (x)
x:=x+1
end

сколько раз выполняются команды цикла

Так как x=1, а в условии - если x<0, то цикл выполнится 0 раз.