mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
24 lines
595 B
ObjectPascal
24 lines
595 B
ObjectPascal
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.
|