PROGRAM HOBIKU 1 DAN 2

Program Hobiku;
Uses crt;
Begin
   clrscr;
   Writeln('Hobiku banyak iho :  ');
   Writeln('1. Membaca ');
   Writeln('2. Mendengarkan Radio ');
   Writeln('3. Berenang ');
   Writeln('4. Memasak ');
   Readln;
End.

Program Hobiku;

Uses crt;

Begin

   clrscr;

   Writeln('Hobiku banyak iho :  ');

   Writeln('1. Membaca ');

   Writeln('2. Mendengarkan Radio ');

   Writeln('3. Berenang ');

   Writeln('4. Memasak ');

   Readln;

End.