оля напечатал рассказ и решила положить на две страницы 2 в окопе какие какие команды ему нужны для этого верных ответов 2 нет

Две команды нужны ей

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readinteger.tostring;   if s=s.distinct.sorted.joinintostring('') then       writeln('цифры являются возрастающей последовательностью')   else       writeln('цифры не являются возрастающей последовательностью') end. примеры 148 цифры являются возрастающей последовательностью 355 цифры не являются возрастающей последовательностью №2 begin   var x,y: real;   write('введите координаты точки: '); read(x,y);   if x*y=0 then writeln('нули вводить не допускается')   else       if x*y> 0 then           if x> 0 then writeln('i четверть')           else writeln('iii четверть')       else           if x> 0 then writeln('iv четверть')           else writeln('ii четверть') end. пример введите координаты точки: -2 -3.2 iii четверть