viết chương trình tính tổng bốn số nguyên

program TBC;
uses crt;
var a: integer;
      s: real;
begin
clrscr;
writeln('nhap so a: '); readln(a);
s:= s+a;
writeln('nhap so b: '); readln(a);
s:= s+a;
writeln('nhap so c: '); readln(a);
s:= s+a;
writeln('nhap so d: '); readln(a);
s:= s+a;
s:= s/4;
writeln('TBC la: ',s:2:1);
readln
end.

 Program tinhtong;

Uses crt;

Var a,b,c,d,s : real;

Begin

      Clrscr;

      Write (' nhap a',a);

      Readln(a);

      Write (' nhap b',b);

      Readln(b);

      Write (' nhap c',c);

      Readln(c);

      Write ( ' nhap d',d);

      S:=0;

      S:= a+b+c+d;

      Write(' tong cua 4 so la',S:2:2);

      Readln;

End.