Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)

Brogram  Bai 1;

Uses crt ;

Var  x, y = integer

Begin

Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;

Readln(x);

Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;

Readln();

Write(‘tong cua hai so x va y la:’, x+y) ; 

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.

Viết chương trình Pascal có khai báo và sử dụng biến

Nhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.

a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).

b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.

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.

Cho đoạn chương trình:

a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.

b. Sửa lỗi đoạn chương trình và đưa ra yêu cầu bài toán phù hợp với chương trình đã sửa lỗi.

Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?

Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:

Program     tinh_tong;

Var         n  S: Integer

Begin

n:  0;

S = 0;

While S< 1000 do

n:= n + 1; 

                   S:= S + n

            Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);  

    Readln;

End.