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

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

begin
  var a:=ArrRandom(12,-50,50); a.Println;
  Writeln('Сумма нечетных частей: ',a.Where(k-gt;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.

Пример
Первое
2-ое
Третье
4-ое
ПервоеВтороеТретьеЧетвертое !
ПервоеВтороеТретьеЧетвертое !!
ПервоеВтороеТретьеЧетвертое !!!