Hãy tìm lỗi sai và sửa lỗi trong chương trình sau

giúp em làm bài này. với ạ
----- Nội dung dịch tự động từ ảnh -----
Câu 3. Hãy tìm lỗi sai và sửa lỗi trong chương trình sau
var x:longint;n:work;
i,sd:longint;
function gt (n:work) :longint
begin
if n=0 then gt:=1
else
gt:=n*gt(n-1);
end;
begin
readln(n); x:=1;
for i:=1 do n
|x:=x*i;
writeln(x);
sd:=1;
while sd<>0 do
sd:=x mod 10;
X:=X div 10;
if x<>0 then sd:=x mod 10;
write (sd);
readln
end.