Hãy sử dụng lệnh For...do để viết chương trình in ra màn hình các số thứ tự từ 1 đến 20 trên mỗi dòng

2 câu trả lời

For i:=1 to 20 do write(i:2);

uses crt;
var i:longint;
begin
 clrscr;
  for i:=1 to 20 do write(i,' ');
 readln
end.