1. Membentuk Kubus dari Bintang

Program Test3;
Uses Crt;
Var i, j: integer;
Begin
Clrscr;
for i:=1 to 3 do
begin
for j:=1 to 5 do
write('*');
writeln;
end; readln;
End.