Program Pascal Perulangan - Byte - ForDo - ForDownTo

Program Pascal Perulangan - Byte - ForDo - ForDownTo

Program Byte;
uses crt;
Var  i,j : byte;

Begin
For i := 1 To 2  Do
Begin
For j := 2 DownTo i  Do
Write(j);
end;
writeln;
End.   

Video Tutorialnya :