var
  p     : array [1..1000] of string;
  d,n,i : longint;
  s,z,f : string;
begin
  readln(s);
  s:=s+' ';
  d:=length(s);
  z:='';
  n:=0;
  for i:=1 to d do
    if s[i]<>' '
      then z:=z+s[i]
      else begin
             inc(n);
             p[n]:=z;
             z:='';
           end;
  f:='';
  for i:=1 to n do f:=f+Upcase(p[i,1]);
  writeln(f);
end.

{$r+}
var
  A           : array [1..1000] of longint;
  n,m,c,b,r,k,i,j : longint;
begin
  assign(input,'swtch.in'); reset(input);
  assign(output,'swtch.out'); rewrite(output);
  readln(n,m);
  for i:=1 to n do a[i]:=0;
  for i:=1 to m do
    begin
      readln(c,r,b);
      if c=0
        then for j:=r to b do a[j]:=1-a[j]
        else begin
               k:=0;
               for j:=r to b do if a[j]=1 then k:=k+1;
               writeln(k);
             end;
    end;
  close(input); close(output);
end.

var
  s1,s2:string;
  i,n,k,max : longint;

  procedure Sdvig(s1:string; var k,i:longint);
    var
     y,d : longint;
     f : string;
    begin
      k:=0;
      d:=length(s1);
      f:=copy(s1,i+1,d-i+1)+copy(s1,1,i);
      for y:=1 to n do
        if f[y]=s2[y] then inc(k);
    end;

begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(n); readln(s1); readln(s2);
  for i:=1 to n do
    begin
      Sdvig(s1,k,i);
      if k>max then max:=k;
    end;
  writeln(max);
  close(input); close(output);
end.

procedure Sdvig(s1:string; var k,i:longint);  

var
  s1,s2:string;
  i,n,k,max : longint;

  procedure Sdvig(s1:string; i:longint; var k:longint);
    var
     y,d : longint;
     f : string;
    begin
      k:=0;
      d:=length(s1);
      f:=copy(s1,i+1,d-i+1)+copy(s1,1,i);
      for y:=1 to n do
        if f[y]=s2[y] then inc(k);
    end;

begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(n); readln(s1); readln(s2);
  for i:=1 to n do
    begin
      Sdvig(s1,i,k);
      if k>max then max:=k;
    end;
  writeln(max);
  close(input); close(output);
end.

var 
a,b,ans : Array [1..100] of longint;
st : array [1..100] of longint;
n,i,sum,stn,kol,min : longint;

Procedure rec(k : longint);
var ak,i : longint;
begin
 ak:=b[k];
 if sum+ak>n then exit;
    inc(sum,ak);
    inc(st[ak]);
 if sum=n then 
 begin
  kol:=0;
  for i:=1 to 10 do kol:=kol+a[i]*st[i];
  if kol<min then 
  begin
   min:=kol;
   for i:=1 to 10 do ans[i]:=st[i];
  end;
 end;
 rec(k);
 for i:=k+1 to 10 do rec(i);
 dec(sum,ak);
 dec(st[ak]);
end;

begin
assign(input,'taxi.inp'); reset(input);
assign(output,'output.txt'); rewrite(output);
 min:=maxlongint;
 for i:=1 to 10 do read(a[i]);
 read(n);
 sum:=0;
 for i:=1 to 10 do b[i]:=i;
 for i:=1 to 10 do rec(i);
 for i:=1 to 10 do 
 begin
  while ans[i]>0 do 
  begin
   writeln(i,' ',a[i]);
   dec(ans[i]);
  end;
 end;
 writeln(min);
 close(input); close(output);
end.

интересную вещь наблюдал сегодня: отправляю код, написанный в дельфи при выбранном компиляторе дельфи - выдаёт либо "неверный ответ" либо "access violation". копирую ТОТ ЖЕ САМЫЙ код в блокнот, сохраняю с разрешением *.pas и отправляю, выбрав компилятор fpc. и вуаля - "все тесты пройдены"

и такое случалось на нескольки задачах. я сомневаюсь, что дело в выборе компилятора. в чём проблема? 

Именно в компиляторе
Я говорил об этом на лекциях:

Turbo Pascal, Free Pascal, Delphi - это разные программы, написанные разными командами программистов в разное время.

Неудивительно, что они работают ПО-РАЗНОМУ.

У нас даже есть специальная тема, где мы описываем эти "разности":
Различия между Turbo Pascal, FP Win32, Delphi 7

Предлагаю тебе почитать ее, а затем выложить там же ссылку на задачу, которую ты решал, свой исходник и сообщение о том, где прошло, а где - нет, и что выдало.

А потом "всем миром" будем искать очередное отличие в их работе. 

     while l<=k do
      begin
        for i:=x to x+d-1 do
         sum[l]:=sum[l]+a[i];
        inc(l);
        inc(x,d);
      end;
    if i<=n then
     for l:=i to n do
      sum[k]:=sum[k]+a[l];

 if i<=n then
     for l:=i to n do
      sum[k]:=sum[k]+a[l];

{$Q+}
uses SysUtils;
var
  a, b, c: int64;
procedure bug;
begin
    a := -1834569418;
    b := -330651027;
    c := a * b;
end;
Begin
  bug;
End.

ИМХО, int64 в Delphi - зло, страшнее ядерной войны.
Работает долго, иногда вот с такими ошибками... 

Я тоже сталкивался с этим в какой-то геометрии. Это вроде-бы из-за того, что delphi (не обязательно 7) неправильно проверяет на owerflow у int64. После этого окончательно перешел на fpc. В нем подобных багов я не замечал. 

function less(a1, a2, b1, b2: string): boolean;
begin
  result:= false;
  if a1 < b1 then result:= true else
  if a1 > b1 then result:= false else
  if a1 = b1 then begin
    if a2 <= b2 then result:= true else result:= false;
  end;
end;

function less(a1, a2, b1, b2: string): boolean;
begin
  less := false;
  if a1 < b1 then less:= true else
  if a1 > b1 then less:= false else
  if a1 = b1 then begin
    if a2 <= b2 then less:= true else less:= false;
  end;
end;

var
  n,m,s : extended;
begin
  read(n,m);
  s:=(1+n)*(1+m)*n*m/4;
  writeln(s:20:0);
end.

{$N+}
program sol;
var
  n,m: comp;
begin
  read(n,m);
  writeln((n*(n+1)/2)*(m*(m+1)/2):0:0);
end.

var
  n,m,s : qword;
begin
  read(n,m);
  s:=(1+n)*(1+m)*n*m div 4;
  writeln(s);
end.

var
  s,p,o,k,l,h,g,f : string;
  Kx              : longint;
begin
  readln(s);
  Kx:=0;
  while pos('c=',s)<>0 do begin delete(s,pos('c=',s),2); inc(Kx,1); end;
  while pos('c-',s)<>0 do begin delete(s,pos('c-',s),2); inc(Kx,1); end;
while pos('dz=',s)<>0 do begin delete(s,pos('dz=',s)-1,3); inc(Kx,1); end;
  while pos('d-',s)<>0 do begin delete(s,pos('d-',s),2); inc(Kx,1); end;
  while pos('lj',s)<>0 do begin delete(s,pos('lj',s),2); inc(Kx,1); end;
  while pos('nj',s)<>0 do begin delete(s,pos('nj',s),2); inc(Kx,1); end;
  while pos('s=',s)<>0 do begin delete(s,pos('s=',s),2); inc(Kx,1); end;
  while pos('z=',s)<>0 do begin delete(s,pos('z=',s),2); inc(Kx,1); end;
  writeln(Kx+(length(s)));
end.

var
  w,q : string;
  s,p : string;
  d,i : longint;
  Kx  : longint;
begin
  readln(s);
  i:=1; d:=length(s); p:='';
  while (i<=d) do
    begin
      q:=copy(s,i,2);
      w:=copy(s,i,3);
      if w='dz=' then begin inc(i,3); inc(Kx); end else
      if q='c=' then begin inc(i,2);inc(Kx);end else
      if q='c-' then begin inc(i,2);inc(Kx);end else
      if q='d-' then begin inc(i,2);inc(Kx);end else
      if q='lj' then begin inc(i,2);inc(Kx);end else
      if q='nj' then begin inc(i,2);inc(Kx);end else
      if q='s=' then begin inc(i,2);inc(Kx);end else
      if q='z=' then begin inc(i,2);inc(Kx);end else
      begin inc(kX); inc(i); end;
    end;
  writeln(Kx);
end.

Почему одно и тоже решение проходит на Turbo Pascal, а на FP Win32 v2.2.0 и Delphi 7 нет??
(Конкретно интересует компилятор FP Win32 v2.2.0)  

while pos('dz=',s)<>0 do begin delete(s,pos('dz=',s)-1,3); inc(Kx,1); end;

var
  x1,y1,x2,y2,x0,y0,A,B,C,A1,B1,C1 : real;

  procedure Per(A,B,C,x,y : real; var A1,B1,C1 : real);
    begin
      A1:=-B;
      B1:=A;
      C1:=B*x-A*y;
    end;

  procedure Tp(A,B,C,A1,B1,C1 : real; var x,y : real);
    var
      d,dx,dy : real;
    begin
      C:=-C; C1:=-C1;
      d:=A*B1-A1*B;
      dx:=C*B1-C1*B;
      dy:=A*C1-A1*C;
      x:=dx/d;
      y:=dy/d;
    end;

  procedure EndOtr(x1,y1,x0,y0 : real; var x2,y2: real);
    begin
      x2:=2*x0-x1; y2:=2*y0-y1;
    end;

begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(x1,y1);
  readln(A,B,C);
  Per(A,B,C,x1,y1,A1,B1,C1);
  Tp(A,B,C,A1,B1,C1,x0,y0);
  EndOtr(x1,y1,x0,y0,x2,y2);
  writeln(x2:0:2,' ',y2:0:2);
  close(input); close(output);
end.

var
  x1,y1,x2,y2,x0,y0,A,B,C,A1,B1,C1 : real;

  procedure Per(A,B,C,x,y : real; var A1,B1,C1 : real);
    begin
      A1:=-B;
      B1:=A;
      C1:=B*x-A*y;
    end;

  procedure Tp(A,B,C,A1,B1,C1 : real; var x,y : real);
    var
      d,dx,dy : real;
    begin
      C:=-C; C1:=-C1;
      d:=A*B1-A1*B;
      dx:=C*B1-C1*B;
      dy:=A*C1-A1*C;
      x:=dx/d;
      y:=dy/d;
    end;

  procedure EndOtr(x1,y1,x0,y0 : real; var x2,y2: real);
    begin
      x2:=2*x0-x1; y2:=2*y0-y1;
    end;

begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(x1,y1);
  readln(A,B,C);
  Per(A,B,C,x1,y1,A1,B1,C1);
  Tp(A,B,C,A1,B1,C1,x0,y0);
  EndOtr(x1,y1,x0,y0,x2,y2);
  if abs(x2)<0.001 then x2:=0.0;
  if abs(y2)<0.001 then y2:=0.0;
  writeln(x2:0:2,' ',y2:0:2);
  close(input); close(output);
end.