123*40*60*40=11808000:8388608=1.40762329
var
<span> n: </span>integer;
begin
<span> repeat</span>
<span> writeln(</span>'Введите число 5');
readln(n);
until n = 5;
// продолжение программы
end.
30-нет, 31 -3,32-нет,33-2,34-ложно при 3и4, 35- нет значений, 36 нет, 40 – истинно только 2