Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Var I, J, K: Integer;
- Begin
- For I:= 1 To 4 Do
- For J:= 1 To 4 Do
- For K:= 1 To 4 Do
- WriteLn(I * 100 + J * 10 + K);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement