Kriteria Nilai

Untuk Menentukan Krieria Nilai Anda bisa Mengunakan Kode pascal Seperti Dibawah ini
___________________
uses crt;
var
i:integer;
begin
clrscr;
i:=16;
While i>1 do
begin
i:=i-1;
writeln(i);
end;
readln;
end.