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

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.

апельсин - цитрусовое.

самый известный факт об апельсинах, что они богаты витамином с. сто грамм этого цитруса могут обеспечить более чем 80% рекомендованной ежедневной нормы этого витамина для человека.

а еще в апельсинах содержатся различные антиоксиданты, которые предотвращать рак, бороться с болезнями сердца, снижать повышенное артериальное давление и уровень холестерина в крови.

апельсин не только красивый и яркий фрукт, но также он вкусен и полезен для здоровья. регулярно употребляйте апельсины в пищу, и тогда у вас всегда будет прекрасное настроение и отличное самочувствие.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.