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

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