كيف نكتب هذه الخوارزمية

ممكن مساعدتي من فضلكم

هذا خوارزمي بسيط في بلغة باسكال يسمح بتحويل عدد عشري صحيح في الأساس 10 إلى الأساس 16

; program convert-decimal-hexadecimal

const

;('v:array[10..15]of char=('A','B','C','D','E','F

var

;s:string

;R,D,N:integer

Begin

;(' =write('N

;(readln(N

;''=:S

repeat

;R:=N mod 16

;D:=N div 16

;N:=D

if R>=10 then

S:=R[V] +S

else

;S:=R+S

; until D=0

;(writeln(S

;readln

.end