Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
Или одна тройка или две единицы. Тройка больше, возьмем ее
нет восьмерок или не больше двух девяток. Ок возьмем без восьмерок, и все девятки как наибольшее
Старшие разряды больше, младшие меньше
Получаем 999993
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal;
if x < 10 then Print('Число меньше 10')
else
if x = 10 then Print('Число равно 10')
else Print('Число больше 10')
end.
Здесь есть круглые предметы (ну и картинка мяча, например)
Пожалуй безопасный интернет и является сказкой.