viết chương trình in ra màn dòng chữ cấu trúc lệnh lặp for…do sử dụng vòng lặp for do và in kết quả ra màn hình

program phuongt;

uses crt;

  var i: integer;

begin

          clrscr;

          writeln(‘Cau truc lenh lap for…do’);

          for i:=1 to 3 do write(‘for <ben dem> := <gia tri dau> to <gia tri cuoi> do <cau lenh>;’);

          readln

end.