Viết chương trình pascal tính tổng 4 chữ số lớp 10

Program tinhtong;

Uses crt;

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

Begin

Clrscr;

Write (‘ nhap so a’,a);

Readln(a);

Write (‘ nhap so b’,b);

Readln(b);

Write (‘ nhap so c’,c);

Readln(c);

Write ( ‘ nhap so d’,d);

S:=0;

S:= a+b+c+d;

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

Readln

End.