Prime no

PRIME NO


parameters : num type i.

data : res type i.

res = num MOD 2.

if res = 0.

write : 'This is not a prime number'.

else.

write : num, 'is a prime number.'.

endif.