<span>10 INPUT D</span><span>
30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0
</span><span> THEN PRINT "Вводимый год может быть годом рождения китайского поэта"
</span><span> ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"</span>
END IF
<span>40 END</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50