program Posloupnost; {vypis posloupnosti 15 clenu}

uses crt;

var a,d:integer; {prvni clen,diference}
    s:integer; {pomocna promenna pro jednotlive soucty}
    i:byte;

begin
  clrscr;

  write('Zadej prvni clen posloupnosti a diferenci: ');
  readln(a,d);
  s:=a;

  write('Posloupnost je :',a,' ');
  for i:=1 to 14 do begin
    s:=s+d;
    write(s,' ')
  end;

end.
--------------------------------------
{suma sudych cisel}
program Suda_cisla;

uses crt;

var a:integer; {cislo na vstupu}
    suma:integer;

begin
  clrscr;
  suma:=0;

  write('Zadej cislo: ');
  readln(a);

  while a<>0 do begin
    if (a mod 2)=0 then suma:=suma+a;
    write('Zadej dalsi cislo: ');
    readln(a)
  end;

  writeln('Soucet sudych cisel je ',suma,'.')
end.
--------------------------------------------------
{zjisti pocet velkych pismen v zadanem retezci}
program Pocet_velkych_pismen;

uses crt;

var a:string;
    pv:byte; {pocet velkych pismen}
    i:byte;

begin
  clrscr;
  pv:=0;

  write('Zadej retezec: ');
  readln(a);

  for i:=1 to length(a) do begin
    if (a[i]>='A') and (a[i]<='Z') then inc(pv);
  end;

  writeln('Pocet velkych pismen je: ',pv)
end.