mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 00:42:06 +02:00
16 lines
245 B
ObjectPascal
16 lines
245 B
ObjectPascal
var j,k : integer;
|
|
|
|
begin
|
|
k:=4;
|
|
if (k div 1 <> 4) then
|
|
halt(1);
|
|
j := k div 1;
|
|
writeln(k div 1, ' ',j);
|
|
if (k div 1 <> 4) or
|
|
(j <> 4) then
|
|
halt(1);
|
|
if (k mod 1) <> 0 then
|
|
halt(2);
|
|
end.
|
|
|