Tugas Hanya Mitos, Tapi Mau tidak mau mitos itu adalah fakta

program tugasAlgo;

{$APPTYPE CONSOLE}

uses
  SysUtils;
label
  awal;
var
  id, pass: string;
  i,x,a : integer;
begin
    awal:
  x:=0;

  for i:=1 to 3 do
    begin

      Write(' Id : ');
       readln(id);
      Write(' pass : ');

      readln(pass);
  if id='admin' then
    begin
      if pass='admin' then
        begin
          WriteLn(' 1. Login Lagi');
              WriteLn(' 2...... ');
              WriteLn(' 3. Exit');
              readln(a);

              case a of
                1 :
                  begin
                      goto awal;
                  end;
                2 :
                  begin
                  end;
                3 :
                  begin
                    Writeln('    ========================================        ');
                    Writeln('    ========================================        ');
                    Writeln('        ooooooo      o       o   ooooooooo ');
                    Writeln('        o          o       o     o    o         ');
                    Writeln('        o          o        o   o     o         ');
                    Writeln('        o          o         o o      o         ');
                    Writeln('        oooooooo        o       ooooooooo ');
                    Writeln('        o          o          o       o         ');
                    Writeln('        o          o          o       o         ');
                    Writeln('        o          o          o       o         ');
                    Writeln('        ooooooo          o       ooooooooo ');
                    Writeln('    ========================================        ');
                    Writeln('    ========================================        ');
                    exit;
                  end;
              end;
          x:=1;
          break;
        end;
    end;
          WriteLn('Username atau password salah');
          writeln;
  end;
  if x=0 then
    write('salah 3 kali');
 
  readln;
  end.

Read More