program kdpquiz;
uses crt;
function daftar:string;
label
a,b,c,d,e,f;
var
un,ps,us,pw:string;
begin
 writeln('Masukkan Username : ');
 readln(un);
 e:if (length(un)<3) then
 begin
 writeln('Username terlalu pendek !!');
 writeln('Masukkan Username Lagi : ');
 readln(un);
 goto e;
 end else
 begin
 goto a;
 end;
 a:writeln('Masukkan Password : ');
 readln(ps);
 f:if (length(ps)<7) then
 begin
 writeln('Password terlalu pendek !!');
 writeln('Masukkan Password Lagi : ');
 readln(ps);
 goto f;
 end else
 begin
 goto b;
 end;
 b:Writeln(' ');
writeln('Berhasil Mendaftar !!');
writeln('Masuk ke Menu Login');
writeln('Login');
writeln('-------------');
 c:writeln('Masukkan Username : ');
 readln(us);
 writeln('Masukkan Password : ');
 readln(pw);
 if (us<>un) or (ps<>pw) then
 begin
 writeln('Anda memasukkan Username atau Password  yang salah');
 goto c;
 end;
end;
label
d;
var
un,ps,us,pw:string;
nm: array [1..10] of  real;
sm,i:integer;
IPK,tot,jum:real;
an,em,jk,tl,km:string;
begin
writeln('Masukkan Nama Anda          : ');
readln(an);
writeln('Masukkan Email Anda         : ');
readln(em);
writeln('Masukkan Jenis Kelamin Anda : ');
readln(jk);
writeln('Masukkan Tanggal Lahir Anda : ');
readln(tl);
writeln('Masukkan KOM Anda           : ');
readln(km);
write(daftar);
clrscr;
writeln('Login Sukses !!');
writeln('Selamat Datang di Portal Mini');
writeln('Masukkan Semester Anda  :  ');
readln(sm);
for i:= 1 to sm do
 begin
 d: writeln('Masukkan Nilai <0.0 - 4.0> Semester - ',i, ': ');
 readln(nm[i]);
 if nm[i] < 0 then
 begin
 writeln('Anda memasukkan nilai yang salah !!');
 goto d;
 end;
 jum:=jum+nm[i];
 tot:=jum;
 end;
writeln('Nama          : ',an);
writeln('Email         : ',em);
writeln('Jenis Kelamin : ',jk);
writeln('Tanggal Lahir : ',tl);
writeln('KOM           : ',km);
writeln(' ');
writeln(' ');
writeln('                 Tabel Nilai                ');
writeln(' ');
writeln('--------------------------------------------');
writeln('|        Semester      |      Nilai        |');
writeln('--------------------------------------------');
for i:= 1 to sm do
begin
writeln('|      ',i,'               |  ',nm[i]:4:2,'             |');
end;
writeln('--------------------------------------------');
IPK:=tot/sm;
writeln(' ');
writeln('IPK Anda adalah :  ',ipk:4:2);
if ipk<3 then
begin
Writeln(':^<')
end else
if ipk<3.5 then
begin
writeln(':^>')
end else
begin
writeln(':D ')
end;
writeln(' ');
writeln(' ');
writeln('PROGRAM SELESAI !!!!!!');
READLN;
end.