Question

Помогите
Оценить сложность алгоритма
Варіант 1.
program example
(input, output);
var x, y: integer;
function gcd( u, v: integer) : integer;
var t: integer;
begin
if u O) or (vmod t<>O) do t:=t
-1;
gcd:=t
end ;
begin
while not eof do begin
readln (x, y ) ;
writeln(x, y, gcd(abs(x), abs(y)));
end
end.

Answer 1

111111111111111111111110/1000000000000000000000