program ; uses crt; var i:integer; begin clrscr; for i:=1 to 5 do begin writeln(‘A’); end; readln; end. Vote 5 sao bạn nhé CHÚC BẠN HỌC TỐT Bình luận
program ;
uses crt;
var i:integer;
begin clrscr;
for i:=1 to 5 do
begin
writeln(‘A’);
end;
readln;
end.
Vote 5 sao bạn nhé
CHÚC BẠN HỌC TỐT
program lap;
uses crt;
var i: integer;
begin
for i:= 1 to 5 do write (‘A’);
readln;
end.