Dùng câu lệnh for do viết PT pascal in ra màn hình các số từ 1 đến 20 Đg cần gấp ai giúp mình vs ????

program bt;

var i:byte

begin

writeln (‘cac so tu 1 toi 20’);

for i:= 1 to 20 do

writeln (i);

readln

end;

vote cho minh 5 sao nha