var n,i,tich:integer; begin clrscr; tich:=1; write('Nhap n:');readln(n); for i:=1 to n do tich:=tich*i; write('Tich so tu 1 den ',n,' la:',tich); readln; end
var n,i,tich:integer; begin clrscr; tich:=1; write('Nhap n:');readln(n); for i:=1 to n do tich:=tich*i; write('Tich so tu 1 den ',n,' la:',tich); readln; end
