em thử đã có lệnh readln chưa

Bài 2: Phân tích số
Cho số tự nhiên n (n ≤ 400). Hãy cho biết có bao nhiêu cách phân tích số n thành tổng của dãy các số nguyên dương, các cách phân tích là hoán vị của nhau chỉ tính là một cách.
Ví dụ: Với n=5, có 7 cách phân tích:
1. 5 = 1 + 1 + 1 + 1 + 1
2. 5 = 1 + 1 + 1 + 2
3. 5 = 1 + 1 + 3
4. 5 = 1 + 2 + 2
5. 5 = 1 + 4
6. 5 = 2 + 3
7. 5 = 5

yêu cầu không dùng đệ quy

program taxi;
var i,n:integer;
s:array[1..100] of integer;
t:longint;
f,g:text;
begin
  assign(f,'BAI3.INP');reset(f);
  readln(f,n);
  for i:=1 to n do
  read(f,s[i]);
  close(f);
  assign(g,'BAI3.OUT');rewrite(g);
  for i:=1 to n do
  t:=t+s[i];
  if t mod 4=0 then writeln(g,(t div 4));
  if t mod 4<>0 then writeln(g,((t div 4)+1));
  close(g);
end.

a/ Dùng mảng một chiều để chứa các số hạng của dãy sau:

1;\(\dfrac{1}{2}\);\(\dfrac{1}{3}\);.... sao cho số hạng cuối cùng của dãy không bé hơn 0,0321. Cho biết dãy có tất cả bao nhiêu số
hạng?
b/ Tìm số hạng nhỏ nhất của dãy sao cho tổng từ số hạng đầu tiên đến nó không vượt
quá 3, và cho biết số hạng nhỏ nhất đó là số hạng thứ mấy của dãy

uses crt;

var i,n:integer;

s:longint;

begin

  clrscr;

  write('nhap n:');readln(n);

  s:=0;

  for i:=1 to n do

  if i mod 2=1 then s:=s+i

  else s:=s-i;

  writeln('s= ',s);

  readln;

end.

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

uses crt;

var p,dt:real;

begin

clrscr;

p:=(7+9+12)/2

s:=sqrt(p*(p-7)*(p-9)*(p-12))

writeln('dien tich la: ',s);

readln;

end.

uses crt;

var i,n:integer;

s:longint;

begin 

clrscr;

write('nhap n:');readln(n);

s:=2021;

for i:=1 to n do

s:=s+i;

writeln('s=', s);

readln;

end.