K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

7 tháng 4 2023

program tong_so;

var

     tong, so: integer;

begin

     tong := 0;

     while tong < 20 do

     begin

          write('Nhập số nguyên: ');

          readln(so);

          tong := tong + so;

     end;

     writeln('Tổng các số đã nhập là: ', tong);

end.