PASCAL Nilai

Cara membuat Program untuk mengetahui nilai..........???
Ni script nya......???
------------------------------script-----------------------------




Program nilai_ujian;
uses crt;
var nama : string[25];
nim : string[8];
nilai: integer;
begin
clrscr;
write('Masukkan nama siswa : ');
readln(nama);
write('Masukkan nomor induk siswa : ');
readln(nim);
write('Masukkan nilai ujian : ');
readln(nilai);
writeln;
case nilai div 10 of
10,9 : writeln('Nilai huruf = A');
8 : writeln('Nilai huruf = B');
7 : writeln('Nilai huruf = C');
6 : writeln('Nilai huruf = D');
5,4,3,2,1,0 : writeln('Nilai huruf = E');
end;
readln;
end.

---------------------------end script-------------------------
ni jadinya.........------->>>>>

PASCAL HARI

Cuman Sedikit Share.........
Cara mengtahui hari,dengan menggunakan program PASCAL.........
Kalian tinggal ikutin aja script ini...

-------------------------------Script--------------------

Uses Dos,Crt;
Const
Hari : Array [0..6] of string [9] =
('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');

Var
Mingguan,Month,day,year:integer;
cari:string[19];
{*============Menentukan Hari================*}
Function DOW(Month,Day,Year:integer):integer;
Var century : integer;
Begin
if Month > 2 then Dec(month,2)
Else
Begin inc(Month,10);Year := Pred(year); End;
Century := Year Div 100; Year := Year Mod 100;

Dow :=(Day - 1 + ((13 * Month - 1)div 5) + (5*Year Div 4)+
Century Div 4-2 * century + 1)mod 7;
end;
{*====================Program Utama======================*}
Begin
Clrscr;
writeln ('Mencari Hari');
Writeln;
Write('Ketik tanggal:');readln(Day);
write('Ketik bulan :');readln(Month);
write('Ketik tahun (4angka):');readln(Year);

Mingguan :=DOW(Month,Day,Year);
cari:= Hari[mingguan];

writeln;
write('TANGGAL TERSEBUT ADALAH HARI:'); Write (cari);
readln;
end.

----------------------------------end Scrpit---------------------------