Praktikum 02

PROGRAM tugasketiga;
uses crt;
var p,aw,akh,i:INTEGER;
BEGIN
  i:=0;
  p:=0;
  repeat
    WriteLn('1. Membandingkan angka');
    WriteLn('2. Mencari Angka yang habis dibagi 7');
    WriteLn('0. Keluar');
    write('pilih program [1 - 2] : ');ReadLn(p);

    WriteLn();
    if (p = 1) then
      begin
        write('Masukkan angka pertama : ');readln(aw);
        write('Masukkan angka Terakhir : ');readln(akh);
        if (aw > akh) then
          begin
            WriteLn(aw,' lebih besar dari ',akh);
            writeln();
          end
        else if(akh > aw) then
          begin
            WriteLn(aw,' lebih kecil dari ',akh);
            writeln();
          end;
      end
    else if (p = 2) then
      begin
        write('Masukkan angka pertama : ');readln(aw);
        write('Masukkan angka Terakhir : ');readln(akh);
        write('hasil = ');
        for i := aw to akh do
          if (i mod 7 = 0) then Write(i, ' ');
        writeln();
      end;
    writeln;

  until (p=0);
  WriteLn('Terima kasih');

END.