Arya's Blog

Mencetak hari dengan perintah GOTO

program hari;
uses crt;
label
a,b,3,4;
begin
write('Minggu') ;
goto a;
b:
write(',rabu');
write(',kamis');
goto 3;
a:
write(',Senin');
write(',Selasa');
goto b;
3:
write(',jumat');
write(',sabtu');
4:
readln;
end.