Выберите функции, которые записаны без ошибок:

• procedure Prints;
  begin
  WriteLn\('\*\*\*'\);
  end;
• function Sums\(a, b: Integer\): Integer;
  begin
  Sums := a + b;
  end;
• function Sums\(a, b: Integer\): Integer;
  var
  S : integer;
  begin
  S := a + b;
  end;
• function Sums\(a, b, c: Integer\): Integer;
  begin
  if \(a \\gt b\) and \(b \\gt c\)
  then
  Sum := a + b;
  end;