Составить программу которая находит наименьшее натуральное число n при котором 2n>=20 и результат наименьшее число n выводит на экран

program zz1;

var n:integer; / / задаем переменные целого типа

begin

for n:=1 to 10 do / / организуем цикл, в котором переберем все числа от единицы до десяти

if 2 * n > = 20 then break; / / проверяем условие, если заданное условие станет верным, это означает, что искомое n найдено и аварийно выходим из цикла

write (' наименьшее число, при котором 2 * n > = 20 = ', n); / / выводим ответ

end.