Viết chương trình in ra màn hình 5 lần chữ A theo lệnh while…do

uses crt;

var i: byte;

Begin

         clrscr;

         i:=1;

         while i<=5 do

         begin

                  write(‘A  ‘);

                  i:=i+1;

         end;

         readln

End.