PASCAL *Giúp mình với mình bị giới hạn thời gian ạ (Giới hạn thời gian tính tối đa 2 giây)

var a,b,n: longint; 
////
function gcd(a,b: longint): longint;
var tam: longint;
begin
    while b > 0 do
        begin
            tam:= a;
            a:= b;
            b:= tam mod b;
        end;
    gcd:= a;
end;
////
function lcm(a,b: longint): longint;
begin
    lcm:= (a*b) div gcd(a,b);
end;
////
begin
    read(a,b,n);
    write(n div lcm(a,b));
end.

uses crt;
var a,b,n:longint;

function ucln(a,b:longint):longint;
begin
if b=0 then exit(a)
else exit(ucln(b,a mod b));
end;

function bcnn(a,b:longint):int64;
begin
exit((a*b) div ucln(a,b));
end;

begin
clrscr;
readln(a,b,n);
write(trunc(n/(a*b))-trunc(bcnn(a,b)/(a*b))+1);
readln
end.