Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.

           Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

          Tìm và sửa lỗi trong chương trình pascal sau: 

          var T, So, D: longint;
          begin
                T:= 0; 
                D:= 0;
                repeat
                write('Nhap so: ');
                readln(So);
                if T + So <= 15000 then 
          begin
                 T:= T + So;
                 D:= Dem + 1; 
          end;
                 until T >= 15000; 
                 writeln('Tong cac so la: ', Tong); 
                writeln('Tong so da nhap: ', Dem);
          readln;
          end.

Câu 1. Trong pascal, khai báo nào sau đây là đúng?

A. Var do duong : real;

B. Var 4hs: integer;

C. Var x, y, z : integer;

D. Var R=30;

Câu 2. Trong Pascal khai báo nào sau đây là sai?

A. Const a=10000;

B. Var x, y:integer;

C. Const pi=3.14;

D. Var x=10000;

Câu 3. Trong pascal khai báo nào sau đây là đúng?

A. Var a b c : real;

B. Var a, b, c: read;

C. Var a, b, c : real;

D. Var a; b; c: real;

Câu 4. Trong pascal câu nào sau đây đúng

A. Const pi : real;

B. Const pi : 3.14;

C. Const pi = real;

D. Const pi =3.14;

Tìm và sửa lỗi cho chương trình sau:

Bài 1:

Program bai 1;

Var x; n: integer;

Begin

        X=12

        Write(n:4,x:4);

ReadIn

End.

Bài 2:

Program 2bai;

Var i, n, s:real;

Begin

      S:=0

      For i:=0.5 to n do

               S=S+i;

      Write(s);

      ReadIn

End.