Mik trôi với lập trình rồi. Vớt mik lên với

Question

Viết chương trình thực hiện nhiều lần việc nhập các số nguyên n ( kiểu integer ) thỏa điều kiện n>5 và tính tổng của chúng đến khi nhập số n không thỏa điều kiện thì dừng lại. In ra tổng đã tính. 

Answer 1

program bai1;

var         S,n:integer;

begin

              S:=0;  readln(n);

              while n>5 do

              begin

                   S:=S+n;   readln(n);

              end;

              write(S);

             readln;

end.