Срочно пожалуйста !!! Составить программу, которая возводит число 5 в степень n вх

Var   a,n,i:integer; Begin   Read(n);   a:=1;   for i:= 1 to n do     a:=a*5;   write(a); End.