uses crt;
var
A, B : Integer;
Begin
clrscr;
A:=1;
REPEAT
B:=1;
REPEAT
Write(A);
B:=B+1; UNTIL B>A;
Writeln;
A:=A+1; UNTIL A>5;
Readkey;
End.
Cloud-sama
My Corner
- mput_mpon
- 1995 girl. A girl that lives in Indonesia. Maniac of Japanese stuffs specially Visual Kei and manga. Love to talk with other people. :DD Ordinary outside, freakin' isance inside XDD
No comments:
Post a Comment