mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:47:55 +02:00
29 lines
394 B
ObjectPascal
29 lines
394 B
ObjectPascal
var
|
|
s: string;
|
|
res: boolean;
|
|
begin
|
|
res:=false;
|
|
s:='Tes 1';
|
|
case s of
|
|
'Tes 1','Tes 2','Tes 3': res:=true;
|
|
end;
|
|
if not res then
|
|
halt(1);
|
|
|
|
res:=false;
|
|
s:='Tes 2';
|
|
case s of
|
|
'Tes 1','Tes 2','Tes 3': res:=true;
|
|
end;
|
|
if not res then
|
|
halt(2);
|
|
|
|
res:=false;
|
|
s:='Tes 3';
|
|
case s of
|
|
'Tes 1','Tes 2','Tes 3': res:=true;
|
|
end;
|
|
if not res then
|
|
halt(3);
|
|
end.
|