bài tập chương trình con lớp 11?

Program nhap_va_xu_ly_mang;

var

a : array[1..20] of integer;

{*** THỦ TỤC NHẬP MẢNG ***}

procedure nhap;

var i : integer;

Begin

writeln('Nhap mang 1 chieu gom 10 phan tu!' );

for i := 1 to 10 do

begin

write('A[',i,']= ');

readln(A[i]);

end;

end;

{*** THỦ TỤC XEM MẢNG ***}

procedure xuatmang;

var i: integer;

begin

for i := 1 to 9 do Write(a[i], ', ');

Writeln(a[10]);

end;

{*** THỦ TỤC TỔNG CÁC NGUYÊN TỐ ***}

procedure tongnguyento;

var i,m,k,tong : integer;

begin

tong := 0;

for i := 1 to 10 do

begin

m:=2;

k:= trunc( sqrt(a[i]) );

if a[i] > 2 then

begin

While (a[i] mod m <> 0 ) and ( m <= k ) do m:= m + 1;

if (m > k) then tong:= tong + a[i];

end;

end;

writeln('Tong cac so nguyen to la : ',tong);

end;

{*** THỦ TỤC TỔNG CÁC ƯỚC SỐ 40 ***}

procedure uocso40;

var i, total : integer;

begin

total := 0;

for i := 1 to 10 do if (a[i] mod 40) = 0 then total:= total + a[i];

writeln('Tong cac uoc so cua 40 la : ',total);

end;

{*** CHUONG TRINH CHINH ***}

BEGIN

nhap;

xuatmang;

tongnguyento;

uocso40;

readln;

END.

Câu 1: viết chương trình nhập vào 1X,1Y,1Z tính tổng bằng cách sử dụng thủ tục tính tổng 1 số

Câu 2: cho vao 2 tog s1,s2 vao so nguyen n bag cach sd ham. xuat ra man hjh so n co thu tu ben traj xau

làm dùm e cái