C1:
var a,b,S:integer;
C2:
write('nhap 3 so a,b,c:'); readln(a,b,c);
C3:
program HD;
uses crt;
var x,y,z,t,TBC : integer;
Begin
clrscr;
write('nhap cac so x,y,z,t:'); readln(x,y,z,t);
writeln('TBC cac so la:',(x+y+z+t)/4);
readln
End.
C4: thông tin được in ra màn hình là
a, 15+5=15+5
b, chương trình báo lỗi vì lệnh Pascal sai
c, ket qua la:1