blob: 63018d84cacea1290a249f75d93c98975d193311 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.
|
