freepascal.compiler/tests/webtbs/tw1416.pp

var s:ansistring;
begin
  s:='TeSt....10........20........30'+
  '........40........50'+
  '........60........70........80'+
  '........90.......100'+
  '.......110.......120.......130'+
  '.......140.......150'+
  '.......160.......170.......180'+
  '.......190.......200'+
  '.......210.......220.......230'+
  '.......240.......250'+
  '.......260.......270.......280'+
  '.......290.......300';
  writeln(s);
  writeln(upcase(s));
  writeln(lowercase(s));
  if (length(upcase(s))<length(s)) or (length(lowercase(s))<length(s)) then
   begin
     writeln('ERROR');
     halt(1);
   end;
end.