begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
Đôi khi phần program khôgn cần thiết :)
uses crt;
begin
clrscr;
writeln(' * * * * * ');
writeln(' * * * * * ');
writeln(' * * * * * ');
writeln(' * * * * * ');
writeln(' * * * * * ');
readln;
end.
begin
writeln('* * * * *');
writeln('* * * * *');
writeln('* * * * *');
writeln('* * * * *');
write('* * * * *');
end.
program ctdt;
uses crt;
begin
writeln('* * * * *');
writeln('* * * * *');
writeln('* * * * *');
writeln('* * * * *');
writeln('* * * * *');
readln;
end.
Program HLCT ;
Uses crt ;
Begin
Clrscr ;
Writeln ( ' ***** ' ) ;
Writeln ( ' ***** ' ) ;
Writeln ( ' ***** ' ) ;
Writeln ( ' ***** ' ) ;
Writeln ( ' ***** ' ) ;
Readln
End .