Sửa:

Program TinhTong;

Var a, b, c, d: integer;

begin

      a:= 40000;

      b:= 10000;

      c:= a/b;

      d:= a+b;

      Writeln (' Gia tri bien c sau khi tinh toan là:', c);

      Writeln (' Gia tri bien d sau khi tinh toan là:', d);

Readln;

End.

Gửi bạn

$\textit{Linh}$

Program Tinh Tong;

Var a,c,d = integer

Begin

    a := 40000; b:= 10000;

    c:= a/b; d:= 'a+b';

    Write('Gia tri bien c sau khi tinh toan la: ',c);

    Write('Gia tri bien d sau khi tinh toan la: ',d);

    Readln

End.

$\\$

Dòng 1: Tên chương trình không được chứa dấu cách

Dòng 2: Khai báo kiểu dữ liệu cho biến a,c,d phải là dấu ':', thiếu dấu chấm phẩy sau câu lệnh khai báo (;)

Dòng 4: Chưa khai bao kiểu dữ liệu cho biến b

Dòng 5: Biến c được khai báo là kiểu dữ liệu số nguyên nhưng lại nhận giá trị kiểu dữ liệu số thực, Biến d được khai báo là kiểu dữ liệu số nguyên nhưng lại nhận giá trị kiểu dữ liệu string (xâu kí tự)

Dòng 8: Thiếu dấu chấm phẩy sau câu lệnh Readln.

$\\$

Chương trình có tổng cộng 7 lỗi, dừng chương trình

$\\$

Sửa chương trình:

$\\$

Program Tinh Tong;

Var a,b: integer;

       c: real;

       d: string;

Begin

    a := 40000; b := 10000;

    c := a/b; d := 'a+b';

    Write('Gia tri bien c sau khi tinh toan la: ',c);

    Write('Gia tri bien d sau khi tinh toan la: ',d);

    Readln;

End.