Giúp mình mấy bào pascal với

[pjanokjss]

mình sắp thi học kì rồi
bạn nào giỏi pascal giúp mình với
1, nhập 2 sô nguyên dương m,n (m<n), đưa ra các phần tử trong khoảng từ m đến n thỏa mãn bội của 3 và 5
2, viết chương trình nhập vào 3 số a,b,c
kiểm tra xem 3 số đó có phải tạo thành cấp số cộng theo thứ tự nhập vào hay không, nếu có thì đưa ra công thức sai của cấp số cộng đó

[Binhthcslt]

Hic hic, bài này mà bạn hỏi thì chắc không ai muốn trả lời vì nó... dễ quá.
Thôi, để mình giúp bạn vậy.
Bài 1:
Program bai1;
uses crt;
var m,n,i:longint;
Begin
write('m=');readln(m);
write('n=');readln(n);
write('cac so thoa man la: ');
for i:=m+1 to n-1 do {vì là trong (m,n)}
if i mod 15=0 then write(i,' '); {Là bội của 3 và 5 tức là bội của 15}
end.
Bài 2:
Program bai2;
uses crt;
var a,b,c:longint;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a+c<>2*b then write('Khong lap thanh CSC')
else write('Co lap thanh CSC va cong sai d=',b-a);
end.
Bài 2 vì là theo thứ tự nhập vào từ bàn phím nên mình chỉ làm có vậy Bạn nên xét trường hợp tổng quát, vd: a=6,b=4,c=8 vẫn lập thành 1 cấp số cộng với công sai d=2.

[pjanokjss]

thanh nha
bạn giúp mình bài nữa nhé
nhập sô nguyên dương N
đưa ra màn hình tổng bình phương các sô cấu tạo nên nó