Целая-часть (неделя-день недели)
род-вид (цветок-маргаритка)
последовательность (среда,четверг)
<span>причина-следствие (жара-жажда)</span>
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
N= 2 в степени i
N = 16
i=?
4 бит