Задачи (Pascal ABC).

program z2;

var S:array [1..25] of integer;
i:integer;

begin
  for i := 1 to 25 do
  begin
    S[i] := random(40) + 1;
    write(S[i]);
    
    if i < 25 then
      write(', ');
  end;
end.

program ABC;
Var A: array [1..14] of integer;
i:integer;
begin
  For i := 1 to 14 do
  begin
    read(A[i]);
  end;
  For i := 3 to 11 do
  begin
    writeln(A[i]);
  end;
end.

program Kk;
Var K: array [1..15] of integer;
i:integer;
begin
  For i := 1 to 15 do
  begin
    if i < 3 then K[i] := 1
    else K[i] := K[i-2] + K[i-1];
    
    write(K[i], ', ');
  end;
end.