viết chương trình pascal in ra 1 hình vuông làm bằng ngôi sao(*)

2 câu trả lời

uses crt;
Var i:integer;
Begin
clrscr;
for i:=1 to 10 do writeln('* * * * * * * * * *');
Readln
End.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var i, j : byte ;
begin
    for i := 1 to 10 do 
         begin
        for j := 1 to 10 do write('*');
        writeln;
         end ;
end .