6 и 7 заданиебуду очень благодарен

begin
  var a:=ArrRandom(12,-50,50); a.Println;
  Writeln('Сумма нечетных элементов: ',a.Where(k->k.IsOdd).Sum)
end.


22 -27 4 3 -30 -25 29 -27 -44 26 21 -28
Сумма нечетных элементов: -26

begin
  var w:array[1..4] of string;
  var s:string:='';
  for var i:=1 to 4 do begin Readln(w[i]); s:=s+w[i] end;
  for var i:=1 to 3 do Writeln(s+' '+i*'!')
end.


Первое
Второе
Третье
Четвертое
ПервоеВтороеТретьеЧетвертое !
ПервоеВтороеТретьеЧетвертое !!
ПервоеВтороеТретьеЧетвертое !!!