Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.
Вещественный тип данных
для pascal - real
<span>натурными модель - это такой вид модели, который можно по трогать(глобус, модель корабля)</span>
А какие элементы то? Последовательность разной может быть. Например 1, 2, 3, 4, 5, 6 - тут сумма элементов с четными индексами четная. 6, 5, 4, 3, 2, 1 - тут нечетная