Bài 1. Viết chương trình: - Nhập vào số nguyên N. - Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình.

program so_n ;

uses crt;

var n,tich,i : integer;

begin

clrscr;

tich:=1;

write('n=');readln(n);

for i:=1 to n do tich:=tich*i ;

writeln('tich ',n,' so nguyen đau tien la ',tich);

readln

end.

Chắc là đúng=)))). Ơ chết mình đọc sai đề rồi nhưng mà thôi ngại sửa =)))))

uses crt;
var a: array[1..1000] of integer;
n,i,s: integer;
begin

clrscr;
write('Nhap N: '); readln(n);
s:=1;
for i:=1 to n do
 begin
  write('So thu ',i,': '); readln(a[i]);
  s:=s*a[i];
 end;
write('Tich cua cac so da nhap la: ',s);
readln;
end.