[almokhlas]

dim n,k,c as ingager

c=6

for n=1 to 6 step 3

k=k+n

next

if n >c then

c=c+1

enf if
اوجد قيم n c k