до 10:00 надо пара Информатика! ​

Факториалом числа называет произведение всех чисел от 1 до этого числа. Нам нужно посчитать 1 * 2 * 3 * 4 * 5 * 6 * 7 тремя и убедиться, что получится 5040.

PascalABC.NET 3.2
begin
  var fact := 1;
  var i := 1;
  while i < 8 do
  begin
    fact *= i;
    i += 1;
  end;
  println('Через while получилось', fact);

  fact := 1;
  for i := 1 to 7 do
    fact *= i;
  println('Через for получилось', fact);

  fact := 1;
  i := 1;
  repeat
    fact *= i;
    i += 1;
  until i > 7;
  println('Через repeat получилось', fact);
end.

Было занятно сделать все это в виде одного оператора)))

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

begin
  ReadlnString('->').ToWords(Arr(',','.'))
      .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
      .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
      .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
      .Println(',')
end.

Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о