Sketch to Draw

Hari ini saya mau meng uploud tugas TIK saya yang telah saya selesaikan .
ini adalah data script dari aplikasi turbo pascal yang saat ini menjadi prioritas pertama dalam tugas saya .

USES wincrt;
var         
nilai:integer ;ket:string[8];
Begin
Writeln('Tuntaskah anda');
writeln('Masukkan nilai anda:');readln(nilai);
if nilai >91 then ket:='istimewa' else
if nilai >81 then ket:='baik' else
if nilai >71 then ket:='cukup' else
if nilai >60 then ket:='sedang' else

ket:='remidi' ;
writeln(ket);                                
end.

untuk langsung/tanpa ketik(ket: hasil kerja disekolah kemarin) bisa di download disini