Algoritma mengisi KRS

Assalamualaikum wr. wb
Kali ini saya akan memposting tentang Algoritma mengisi KRS, singkat saja berikut algoritma dibawah ini :

Deklarasi :
i, jmk, nim, sks, kode = integer
nama, mk = char

Deskripsi :
read (nama,nim)
read (jmk)
for (i=1; i<=jmk; i++)
read (input = kode, mk, sks)
if(sks>=1 && sks<=4) then
sks=sks
endif
else SKS tidak lebih dari 4
endfor
for (i=1; i<=jmk; i++)
read (output = nama, nim, jmk, kode, mk, sks)
endfor


Demikian postingan singkat dari saya, mohon maaf jika masih ada kesalahan.
Terima kasih...