=> khai báo sai kiểu dữ liệu 

=> mod không sử dụng được với kiểu dữ liệu số thực (real)

=> mod chỉ sử dụng với kiểu dữ liệu số nguyên : byte, word, integer, longint, ...

* Sửa chương trình :

program h;

uses crt;

var a, b, tong : integer;

begin

clrscr;

writeln('a = ');readln(a);

writeln('b = ');readln(b);

tong := a + b;

writeln('tong la : ', tong);

if (tong mod 2 = 0) then writeln('tong la so chan') else

writeln('tong la so le');

readln

end.

a,b,tong được khai báo là kiểu dữ liệu số thực nên phải sửa chúng lại là longint hoặc integer;

sửa lại:

program h;
uses crt;
Var a, b, tong: longint;
begin
clrscr;
writeln ('a='); readln(a);
writeln ('b='); readln(b);
tong:= a+b;
writeln ('Tong la:',tong);
If (tong mod 2 = 0) then writeln('Tong la so chan') else
writeln('Tong la so le');
readln
end.