сколько раз выполнитмя тело цикла? x:=1; while x меньше 10 do writeln (x);