Z-Warmup

Tri primere mi padaju na vreme moze mi neko pomoci podobriti kod:

program warmup;
var a,b,proizvod,i:longint;
begin
readln(a,b);
proizvod:=1;
for i:=1 to b do begin
proizvod:=proizvod*(a);
proizvod:=proizvod mod 10;
end;
writeln(proizvod);
end.

jeli moze neko i meni pomoci , evo mi source
http://www.z-trening.com/new/www/html/submit.php?submit=7100045230&subm_code=1

pada mi samo na 9 zbog TLE sve ostalo radi.

Hvala

nvm , i done it, here is a hint for everybody:

b is way too big , do some maths on paper , you will see its not about the multiplication its about getting b down as low as possible.