Program Pascal - Perulangan - WhileDo

Program Pascal - Perulangan - WhileDo



Script-nya :

Program PerulanganWhileDo;
uses crt;
Var
i : integer;
Begin   
i :=1; 
While i <= 3 Do
Begin
If 10 Mod i = 0 Then 
Writeln(10 Div I);
i := I + 1; 
End; 
End. 


Video Tutorialnya :