<span> из ниже перечисленных zip конечно</span>
var
a:integer;
begin
writeln('Num'); readln(a);
if (a > 0) and (a < 5) then begin
case a of
1:writeln('Один');
2:writeln('Два');
3:writeln('Три');
4:writeln('Четыре');
end
end
else
writeln(sqr(a));
end.
Ответ: 3) Секретное слово (ПАРОЛЬ)
ПАР
МОЛЬ => ОЛЬ
Если слева (внизу или вверху) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>