PROGRAM TUGAS_1;
Uses Wincrt;
var
i,j,n: integer;
begin
write ('masukkan nilai n= ');
readln (n);
for i:=1 to n do
begin
for j:=1 to 3 do
writeln(i,'.',j);
end;
end.
Rabu, 16 Desember 2009
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar