PROGRAM REPEAT_UNTIL;
USES CRT;
VAR
A,B,C : INTEGER;
BEGIN
CLRSCR;
A:=1;
C:=1;
REPEAT
B:=1;
REPEAT
WRITE(C);
B:=B+1;
C:=C+1;
UNTIL B>A;
WRITELN;
A:=A+1;
UNTIL A>3;
READKEY;
END.
Cloud-sama
Subscribe to:
Post Comments (Atom)
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