pascal lesson4_program1

Program lesson4_Program1;
Uses  Crt;
Label 1;  {digunakan bersama statement goto}
Var Sel: String;
    N1,N2, Total : Real;
    YN : Char;  {variabel dengan tipe karakter,
                 yang HANYA akan menampung satu huruf/angka saja}
Begin
 1:Clrscr;
 Total := 0;  {biasakan untuk menginisialisasi variabel integer / real}
 GotoXy(4,3);
 Writeln('1.Penjumlahan');
 GotoXy(4,4);
 Writeln('2.Pengurangan');
 GotoXy(4,5);
 Writeln('3.Exit');
 GotoXy(6,8);
 Write('Pilih: ');
 Sel := Readkey;
 If Sel = '1' {aksi} then
  Begin  {lebih dari satu aksi}
   ClrScr;
   Write('Input No.1:');
   Readln(N1);
   Write('Input No.2:');
   Readln(N2);
   Total := N1 + N2;
   Writeln('Penjumlahan: ',N1:2:3,' + ',N2:2:3,' = ',Total:2:3);
   Write('Tekan tombol mana saja untuk melanjutkan...');
   Readkey;
   Goto 1;{ini akan membawa kembali ke awal program,
           jika tidak maka program akan berhenti}
  End;  {menutup if statement(begin)}
 If Sel = '2' then
  {perhatikan bahwa operator assignment
   tidak digunakan di dalam statement if}
  Begin
   ClrScr;
   Write('Input No.1:');
   Readln(N1);
   Write('Input No.2:');
   Readln(N2);
   Total := N1 - N2;
   Write('Pengurangan: ');
   Write(N1:2:3,' - ',N2:2:3,' = ',Total:2:3);
   Write('Tekan tombol mana saja untuk melanjutkan...');
   Readkey;
   Goto 1;
  End;  {Menutup if statement}
 If Sel = '3' then
  Begin
   ClrScr;
   Write('Anda yakin untuk keluar?(Y/N)');
   YN := Readkey;
   If YN = 'y' then Halt; {1 aksi jadi tidak memerlukan Begin..End}
   If YN = 'n' then Goto 1; {statement goto tidak direkomendasikan
                             untuk program yang kompleks}
  End;
End.