Як виконується фрагмент алгоритму (мал. 3.46, б, в, г) Scratch 2

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // собственно решение
  var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.