Đụ mẹ người ta kêu pascal bà làm C tui lạy bà

VCT nhập vào sô tự nhiên n n<=10^4 in ra màn hình thông báo số Phong phú nhỏ nhất lớn hơn hoặc bằng n   PASCAL

ĐCM tui lạy các anh chị quản trị giải câu hỏi giải dùm em bài này bằng free pascal ạ 🆘🆘🆘🆘

bỏ hai biến A[i] và B[i] vào biến C[i] mà không được cộng các hạng tử bên trong A[i] và B[i] lại với nhau chỉ với      HELP TUI     PASCAL NHA MỌI NGƯỜI ĐỪNG LÀM C HOẶC C++ 

                                                   CÁM ƠN

GIẢI BẰNG FREE PASCAL Ạ :

VCT cho phép nhập hai số nguyên a,b là tử mẫu của phân số a/b từ bàn phím rồi thực hiện:

a) rút gọn phân số a/b để được tối giản m/n

b) khi viết phân số m/n dưới dạng số thập phân hãy cho biết chữ số thập phân thứ nhất

c) phân số m/n luôn biểu diễn dưới dạng liên phân số

CẢM ƠN.

Bài 2. Viết chương trình nhập vào một xâu bất kỳ. In ra màn hình xâu đó sau khi đã xóa hết
ký tự trắng dư thừa. Ký tự trắng dư thừa (hay còn gọi là dấu cách, ký tự trống) là ký
tự trắng xuất hiện ở trước từ đầu tiên của xâu, sau từ cuối cùng của xâu và giữa các
từ cách nhau nhiều hơn 1 ký tự trắng.
Ví dụ: Giả sử * là ký tự trắng.
Cho xâu: ’**xin***chao**’. =&gt; Xâu sau khi được xử lý ’xin*chao’
Gợi ý:
Kiểm tra phần tử trong xâu có phải là ký tự trắng hay không? Nếu đúng thì xóa ký tự trắng đó
cho đến khi không còn ký tự trắng ở đầu xâu.
Kiểm tra từ đầu đến cuối xâu, nếu có 2 ký tự trắng liên tiếp =&gt; Xóa đi 1 ký tự trắng, thự hiện
công việc xóa cho đến khi giữa các từ trong xâu chỉ cách nhau 1 ký tự trắng.
Sau khi xử lý các ký tự trắng dư thừa ở đầu xâu, giữa xâu. Ta xử lý tiếp ký tự trắng dư thừa ở
cuối xâu bằng cách kiểm tra ký tự cuối cùng có phải là ký tự trắng hay không. Nếu đúng thì xóa
cho đến khi ký tự cuối cùng của xâu không phải là ký tự trắng.
B1: Khai báo.
B2: Nhập xâu bất kỳ.
B3: Xoá ký tự trắng dư thừa
B3.1: Xoá ký tự trắng dư thừa xuất hiện ở đầu tiên của xâu (nếu có).
Chừng nào ký tự đầu tiên trong xâu là ký tự trắng =&gt; xoá ký tự trắng đó cho đến khi đầu xâu
không phải là ký tự trắng.
B3.2: Xoá ký tự trắng dư thừa cuối cùng của xâu (nếu có).
Chừng nào trong xâu xuất hiện 2 ký tự trắng trong xâu =&gt; xoá đi 1 ký tự trắng dư thừa.
B3.3: Xoá ký tự trắng dư thừa giữa các từ (nếu có).
Chừng nào ký tự cuối cùng là ký tự trắng =&gt; Xoá đi ký tự đó.
B4: In ra kết quả

alo

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập).
Yêu cầu nhập lại nếu n<=0

ai trả lời giúp mình được ko cảm ơn

Ai có thể cho mình 1 bài tập về lắp có xác định được không ạ