viết chương trình in ra màn hình 5 chữ số tự nhiên đầu tiên

2 câu trả lời

var
        i: integer;
        begin

                for i:= 1 to 5 do
                        writeln(i);
                readln;
        end.

program bt;

uses crt;

var    i: integer;
begin
clrscr;
for i:= 1 to 5 do  write(i,' ');
              
end.