Синформатикой: дано двухзначное случайное число.определите,является ли сумма его цифр меньше либо равной 10. (нужно написать программу)

Program ex;
uses crt;
var N, sum: integer;
begin 
 read(N); 
 sum:=0; 
 while N > 0 do 
 begin 
  sum:= sum + N mod 10; 
  N:= N div 10;
  end;  if sum < 10 then 
  print('Yes!')  else 
  print('No!'); 
 end.