Это программа Pascal abc . напишите последовательность команд с которой можно переставить значения переменных a и b чтобы выполнялось условие a<=b.

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.

var hour: integer;

      minute: string;

begin

  writeln('введите время суток');

  read(hour,minute);

  if (hour> =6) and (hour< 12) then writeln('доброе утро');

  if (hour> =12) and (hour< 18) then writeln('доброго дня');

  if (hour> =18) and (hour< 00) then writeln ('доброго вечера');

  if (hour> =00) and (hour< 6) then writeln ('спокойной ночи');

end.

тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке