Tugas Login Pascal II

Program afif;
uses wincrt;

var

UAS,Tugas,UTS:integer;
Nilai:Real;
Nama,grade,Ket:string;



begin

gotoxy(26,1);Writeln('############################');
gotoxy(26,2);writeln('##   Tugas Praktikum                 ##');
gotoxy(26,3);writeln('##                                          ##');
gotoxy(26,4);writeln('## Nama    : Moch. Afif           ##');
gotoxy(26,5);writeln('## Nim     : 111210276         ##');
gotoxy(26,6);writeln('## Kelompok: G                       ##');
gotoxy(26,7);writeln('## Kelas   : E                       ##');
gotoxy(26,8);writeln('##                                              ##');
gotoxy(26,9);writeln('############################');


gotoxy(26,11);write('Masukan Nama Kamu        : ');read(Nama);
gotoxy(26,12);write('MAsukan Nilai Tugas      : ');read(Tugas);
gotoxy(26,13);write('Masukan Nilai UTS        : ');read(UTS);
gotoxy(26,14);write('Masukan Nilai UAS        : ');read(UAS);

Nilai:=(2*UAS+Tugas+UTS)/4;

begin
if Nilai >90 then grade:='A'
else if Nilai >80 then grade:='B'
else if Nilai >70 then grade:='C'
else if Nilai >60 then grade:='D'
else grade:='E'

end;

Begin
if grade='A' then Ket:='Lulus'
else if grade='B' then Ket:='Lulus'
else if grade='C' then Ket:='Lulus'
else Ket:='Tidak Lulus'
end;

clrscr;
gotoxy(26,1);Writeln('############################');
gotoxy(26,2);writeln('      ##  Tugas Praktikum            ##');
gotoxy(26,3);writeln('##                                           ##');
gotoxy(26,4);writeln('     ## Nama    : Moch. Afif       ##');
gotoxy(26,5);writeln('## Nim     : 111210276           ##');
gotoxy(26,6);writeln('      ## Kelompok: G                ##');
gotoxy(26,7);writeln('## Kelas   : E                         ##');
gotoxy(26,8);writeln('    ##                                         ##');
gotoxy(26,9);writeln('############################');

gotoxy(26,11);writeln('Mahasiswa Dengan Nama    :',Nama);
gotoxy(26,12);writeln('Mendapat Nilai Akhir     :', Nilai:0:2);
gotoxy(26,13);writeln('Maka Mendapat Grade      :', grade);
gotoxy(26,14);writeln('Sehingga Dinyatakan      :', Ket);

end.