Var a,b:integer;
Begin
Clrscr;
a:=1;
b:=1;
while a<=2 do
Begin
Writeln(a);
While b<=3 do
Begin
Writeln(b);
B:=b+1;
End;
A:=a+1;
End;
Readln;
End.
Menghasilkan
1 – a
1 -b
2 -b
3 -b
2 -a
Cara menghasilkan
1- a
1-b
2-b
3-b
2-a
1-b
2-b
3-b
Uses crt;
Jawaban Terkonfirmasi
Maaf lama, sempat error kompilernya.. Ini dibawah ya Source Codenya. silahkan dikembangkan
var n,i:integer;
procedure angka(); begin
i:=1;
while i < 4 do begin
writeln (i);
i:=i+1;
end; end;
begin
n:=1; i:=1; //deklarasi variable set ke 1
while n < 3 do begin // Deklarasi Jumlah pengulangan
writeln(n);
angka();
n:=n+1;
end;
end.