Составить программу которая обретает меньшее натуральное число n при котором 2namp;gt;=20

program zz1;
var n:integer; // задаем переменные целого типа
begin
for n:=1 to 10 do // организуем цикл, в котором переберем все числа от единицы до 10
if 2 * n gt;= 20 then break; // проверяем условие, если данное условие станет верным, это значит, что разыскиваемое n найдено и аварийно выходим из цикла
write( меньшее число, при котором 2 * n gt;= 20 =, n); // выводим ответ
end.