mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 12:26:58 +02:00
29 lines
386 B
ObjectPascal
29 lines
386 B
ObjectPascal
var
|
|
S :String;
|
|
begin
|
|
S := 'H';
|
|
case S of
|
|
'HH','H': WriteLn('1');
|
|
end;
|
|
S := 'HH';
|
|
case S of
|
|
'HH': WriteLn('2');
|
|
end;
|
|
case S of
|
|
'HH','H': WriteLn('3');
|
|
end;
|
|
case S of
|
|
'H','HH': WriteLn('4');
|
|
end;
|
|
S := 'A';
|
|
case S of
|
|
'HH': WriteLn('2');
|
|
end;
|
|
case S of
|
|
'HH','H': WriteLn('3');
|
|
end;
|
|
case S of
|
|
'H','HH': WriteLn('4');
|
|
end;
|
|
end.
|