По двум заданным одномерным массивам формируется третий, содержащий в начале элементы первого, а в конце – элементы второго массива.

Uses Crt;
var num, sum, count : longint;
begin
sum := 0;
count := 0;
    repeat
          read (num);
          if num > 0 then
          begin
               inc (sum, num);
               inc (count);
          end;
     until num = 0;
writeln (' Sum = ', sum, ' ', 'Count = ', count);
end.

program name;
uses crt;
var a:array[1..50] of integer;
i:integer;
begin
//заполни массив.выведи на экран
for i:=1 to 50 do 
if i mod 5 = 0 then a[i]:=exp(5*ln(a[i]));
writeln('новый массив');
for i:=1 to 50 do
write(a[i],a[i]:3);
readkey;
end.

for i:=1 to n do
if i mod 5=0 then
 begin
  p:=1;
  for j:=1 to 5 do
  p:=p*a[i];
  a[i]:=p;
 end;

  i:=5;
  while i<=n do
    begin
      a[i]:=sqr(sqr(a[i]))*a[i];
      inc(i,5);
    end;

Uses Crt;
Const SIZE = 50;
Const ex = 5;
Type Mas = array [1..SIZE] of longint;
var arr : Mas;
    i   : byte;
begin
     for i := 1 to SIZE do
     begin
          arr[i] := random (5) + 1;
          write (arr[i]:10);
          if i mod 5 = 0 then arr[i] := Trunc (exp(ex * ln (arr[i])));
     end;
     
     writeln ;
     for i := 1 to SIZE do write (arr[i]:4);
     writeln;
end.