code 2009

program ex1;

uses
  wincrt;


type
  tab = array [1..30] of Integer;


var
  TS, T: tab;
  n, k: integer;

procedure saisie1(
var
  n: integer);


begin
  repeat
    Write('donner n : ');
    readln(n);
  until (n in [5..30]);
end;
procedure remplir(
var
  t: tab;
  n: Integer);


var
  i: Integer;


begin
  for i := 1 to n do
    repeat
      Write('donner T[', i, '] : ');
      ReadLn(t[i]);
    until (t[i] >= 0);
end;
procedure saisie2(n: integer;

var
  k: integer);


begin
  repeat
    Write('donner k : ');
    readln(k);
  until ((k < n) or (k > 1));
end;
procedure affiche1(t: tab;
n: Integer);

var
  i: Integer;


begin
  for i := 1 to n do
    Write(t[i], ' | ');
end;
procedure affi(
var
  ts: tab;
  t: tab;
  n, k: integer);


var
  i, j, h: Integer;


begin
  for i := 1 to n - k + 1 do
    ts[i] := 0;
  h := 1;
  for i := 1 to n do
    begin
      for j := i to k do
        ts[h] := ts[h] + t[j];
      h := h + 1;
    end;
  for i := 1 to n - k + 1 do
    Write(ts[i], ' | ');
end;

begin
  saisie1(n);
  remplir(t, n);
  saisie2(n, k);
  affiche1(t, n);
  affi(ts, t, n, k)
end.