mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 08:13:43 +02:00
23 lines
388 B
ObjectPascal
23 lines
388 B
ObjectPascal
program scanf_example;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
gmp;
|
|
|
|
var n, sqr: mpz_t;
|
|
|
|
begin
|
|
mpz_init(n);
|
|
mpz_init(sqr);
|
|
write('Please enter an integer of any length: ');
|
|
if mp_scanf('%Zd', @n) = 1 then begin
|
|
mpz_pow_ui(sqr, n, 2);
|
|
mp_printf('%Zd^2 = %Zd'#10, @n, @sqr);
|
|
end else
|
|
writeln('Failed to parse an integer from your input');
|
|
mpz_clear(sqr);
|
|
mpz_clear(n);
|
|
end.
|
|
|