Uses crt;

Var i,tong:integer;

Begin

tong:=0;i:=1;

While i<=1000 then 

Begin

tong:=tong+i;

i:=i+1;

End;

Writeln('Tong: ',tong);

readln;

End.

Chị bổ sung dùm em thêm câu lệnh đóng file f2 nữa nha

Uses crt;

Var i,n,k,tong:integer;

      tb:real;

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

      f1,f2:text;

Begin

clrscr;

Assign(f1,'SONGUYEN.inp');

Assign(f2,'SONGUYEN.out');

Reset(f1);Readln(f1,n);

For i:= 1 to n do read(f1,a[i]);

close(f1);

k:=0;tong:=0;

For i:= 1 to n do If (a[i]<0) and (Abs(a[i]) mod 2 = 1) then

  Begin

  inc(k);

  tong:=tong+a[i];

  End;

tb:=tong/n;

Rewrite(f2);

writeln(f2,tb:0:2);

Writeln(f2,k);

close(f2);

readln;

End.

Program Tin;

Uses crt;

Var i,n:integer

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

Begin

clrscr;

Write('Nhap n: ');readln(n);

Writeln('Nhap ',n,' so nguyen:');

For i:= 1 to n do 

Begin

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

readln(a[i]);

End;

Writeln('Cac so chan co trong day la:');

For i:= 1 to n do If a[i] mod 2 = 1 then write(a[i],'  ');

Readln;

End.

Uses crt;

Var tong,n:real;

Begin

clrscr;

tong:=0;

While tong<=200 do

Begin

readln(n);

tong:=tong+n;

End;

Writeln('Tong: ',tong:0:4);

readln;

End.

Program Tin;

Uses crt;

Var i,n,dem:Integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu cua day:');

For i:= 1 to n do 

Begin

Write('So thu ',i,': ');

readln(a[i]);

If a[i] mod 2 = 1 then dem:=dem+1;

End;

Writeln('Day co ',dem,' so le');

readln;

End.

Uses crt;

Var i,n,tong:integer;

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

      f1,f2:text;

Begin

clrscr;

Assign(f1,'tinhtong.inp');

Assign(f2,'tinhtong.out');

tong:=0;

Reset(f1);readln(f1,n);

For i:= 1 to n do

Begin

read(f1,a[i]);

tong:=tong+a[i];

End;

close(f1);

rewrite(f2);

Writeln(f2,tong);

Readln;

End.

Uses crt;

Var i,n:integer;

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

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.

Write a short paragraph about a tour of a place

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.