mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-25 03:49:22 +02:00
22 lines
416 B
ObjectPascal
22 lines
416 B
ObjectPascal
program scanf_example2;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
sysutils, gmp;
|
|
|
|
var
|
|
n, sqr: MPInteger;
|
|
s: AnsiString;
|
|
begin
|
|
write('Please enter an integer of any length: ');
|
|
readln(s);
|
|
z_init(n);
|
|
if mp_sscanf(PAnsiChar(s), '%Zd', n.ptr) = 1 then begin
|
|
sqr := n ** 2;
|
|
writeln(format('%s^2 = %s', [AnsiString(n), AnsiString(sqr)]));
|
|
end else
|
|
writeln('Failed to parse an integer from your input');
|
|
end.
|
|
|