CÁc bác giúp em giải bài tập này với! Gấp lắm rồi huhu, cảm ơn các bác!

CÁc bác giúp em giải bài tập này với! Gấp lắm rồi huhu, cảm ơn các bác!

1, Trong một công ty có 1000 lao động. BIết năm sinh của lao độgn trogn công ty. HÃy viết chương trình pascal để lập dữ liệu vào, tính ra sốlao động có độ tuổi dưới 30, số lao động có độ tuổi trên 30
2. Có n nhà đầu tư nước ngoai đầu tư vaò 1 công trình trong m năm. BIết tên mỗi nhà đầu tư, biết khoản tiền đầu tư hàng năm (USD) vào công trình của mỗi nhà đầu tư. BIết lãi suất đàu tư hàng năm của công trình (như nhau trong m năm) Hãy lập chương trình pascal để tính ra bảng giá trị nhận đc của nhà đầu tư. Bảng gồm các cột. Số thứ tự, tên nhà đầu tư, giá trị nhận được. BIết rằng lãi xuất của năm trước ko nhập vào gốc của năm sau.
Cảm ơn các bác rất nhiều!

Để tối nay em làm hộ bài 1 cho, còn bài 2 nhìn thấy mấy chữ lãi suất ngại quá

Tớ quên hết Pascal rồi, sozi nhá. Hồi trước tớ cứ thấy bài tập Pascal nào là ngồi lì một chỗ, nghiên cứu lúc nào xong thì thôi. Giờ làm kinh tế rồi, nên quên hết
Up dùm bạn để tìm lời giải

bai 1:
user crt;
type MangTen= array[1...100] of string;
Mangtuoi = array[1...100] of integer;
var ten:mangten;
tuoi: mangtuoi;
i,n:integer;
begin
clrscr;
writeln('''' Nhap du lieu:'''');
{ write('''' Nhap so luong cong nhan = '''');readln(n); co the them dong nay neu so luong cong nhan thay doi}
for i:=1 to 1000 do
begin
write('''' nhap ten cong nhan '''',i,'''' : '''');readln(ten);
write('''' nhap tuoi cong nhan '''',i,'''' : '''');readln(tuoi);
end;
writeln('''' Nhung con nhan co do tuoi tren 30'''');
for i:=1 to 1000 do
if tuoi>30 then writeln(ten);
writeln('''' Nhung con nhan co do tuoi duoi 30'''');
for i:=1 to 1000 do
if tuoi<30 then writeln(ten);
readln;
end.
Bài 2 :
user crt;
type MangTenNDT= array[1...100] of string;
MangtienDT= array[1...100] of integer;
var ten:mangtenNDT;
tien: mangtienDT;
i,n,m:integer;
lai : real;
begin
clrscr;
writeln('''' Nhap du lieu:'''');
write('''' Nhap so luong NDT = '''');readln(n);
write('''' Nhap so Nam = '''');readln(m);
write('''' Nhap lai = '''');readln(lai);
for i:=1 to n do
begin
write('''' nhap ten NDT thu '''',i,'''' : '''');readln(ten);
write('''' nhap so tien cua nha dau tu thu '',i,'''' : '''');readln(tien);
end;
writeln('' STT ten gia tri nhan'');
for i:=1 to n do
writeln(i:4, ten ,'' '', tien *m*lai:9:2);
readln;
end.
có thể sai lỗi cú pháp ... chịu khó sửa
Được nuoc_da sửa chữa / chuyển vào 10:27 ngày 06/04/2007

Bài toán đơn giản vậy thôi à?, cái này kiếm mấy quyển pascal beginer ấy, đều có

Cảm ơn các bạn nhiều!