Sử dụng ngôn ngữ lập trình Pascal để viết chương trình giải quyết các bài toán sau:
Bài 1: Nhập vào một dãy các số nguyên, quá trình nhập dừng lại khi số nhập vào bằng 0. Tính tổng các số lớn hơn 0 trong dãy số vừa nhập
Bài 2: Tìm ước số chung lớn nhất và bội số chung nhỏ nhất của 3 số nguyên a, b, c được nhập vào từ bàn phím.
Giúp mình với,mình cần gấp lắm huhu!!!
Program BTH; uses crt; var s,i,n:longint; Begin clrscr; i:=0; repeat i:=i+1; write('Nhap so thu ',i,' : ');readln(n); If n>0 then s:=s+n; until n=0; writeln('Tong cac so lon hon 0 trong day la: ',s); readln; end.