Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

Var one,two,three: integer; begin      write('введите первое число число: ');       readln(one);     write('введите второе число число: ');       readln(two);       write('введите третье число число: ');       readln(three);   if (one < two) and (two < three) then      writeln('числа введены в порядке возрастания')    else      writeln('числа не введены в порядке возрастания'); end.

Var i,k,j: integer; begin readln(i,k,j); if ( (i< k) and (k< j)) then write ('true') else writeln('false'); end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

 

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.