16 lines
285 B
ObjectPascal
16 lines
285 B
ObjectPascal
uses crt;
|
|
begin
|
|
writeln(2);
|
|
writeln(-2);
|
|
writeln(200);
|
|
writeln(-200);
|
|
writeln(2000);
|
|
writeln(-2000);
|
|
writeln(2.tostring);
|
|
writeln((-2).tostring);
|
|
writeln(200.tostring);
|
|
writeln((-200).tostring);
|
|
writeln(2000.tostring);
|
|
writeln((-2000).tostring);
|
|
readkey;
|
|
end. |