Найти наименьшее число, которое делится на сумму цифр числа N

uses crt;
var a,n: integer;
begin
write ('Ââåäèòå íîìåð ìåñÿöà ');
readln (n);
writeln ('Åñëè ãîä âèñîêîñíûé, ââåäèòå 1, íà÷å ââåäèòå 0 ');
readln (a);
 
case n of
1, 3, 5, 7, 8, 10, 12: write ('Â ',n,' ìåñÿöå 31 äåíü');
2: if a=1 then  write ('Â ',n,' ìåñÿöå 29 äíåé') else  write ('Â ',n,' ìåñÿöå 28 äíåé');
4, 6, 9, 11: write ('Â ',n,' ìåñÿöå 30 äíåé');
end;
end.

uses crt;
var a,n: integer;
begin
write ('Ââåäèòå íîìåð ìåñÿöà ');  //çàïðàøèâàåì è ñ÷èòûâàåì ïåðåìåííóþ ìåñÿöà
readln (n);
writeln ('Åñëè ãîä âèñîêîñíûé, ââåäèòå 1, íà÷å ââåäèòå 0 ');  //çàïðàøèâàåì ïåðåìåííóþ âèñîêîñíîãî èëè íå âèñîêîñíîãî ãîäà è ñ÷èòûâàåì
readln (a);
 
case n of
1, 3, 5, 7, 8, 10, 12: write (' ',n,' ìåñÿöå 31 äåíü');                                 //åñëè íîìåð ìåñÿöà îòíîñèòñÿ ê óêàçàííûì ñëó÷àÿì (case), íàïðèìåð, ÿíâàðü, ìàðò, âûâîäèì ñîîáùåíèå (â ìåñÿöå  çäåñü âñòàâëÿåì ïåðåìåííóþ ìåñÿöà - ñòîëüêî-òî äíåé (ñì â êàëåíäàðå =)))
2: if a=1 then  write (' ',n,' ìåñÿöå 29 äíåé') else  write (' ',n,' ìåñÿöå 28 äíåé');  //ôåâðàëü, çäåñü âûâîä áóäåò ðàçëè÷àòüñÿ â çàâèñèìîñòè îò òîãî, ÿâëÿåòñÿ ëè ãîä âèñîêîñíûì èëè íå ÿâëÿåòñÿ...
                                                                                          //åñëè âèñîêîñíûé, âûâîäèì 29, èíà÷å - 28
4, 6, 9, 11: write ('Â ',n,' ìåñÿöå 30 äíåé');      //è, íàêîíåö, îñòàâøèåñÿ ìåñÿöû, â êîòîðûõ ïî 30 äíåé
else writeln('íåò òàêîãî ìåñÿöà');   //"çàùèòà îò ââîäà íåâåðíûõ äàííûõ"  â ñëó÷àå, åñëè ÷èñëî íå ïðèíàäëåæèò äèàïàçîíó îò 1 äî 12, âûâîäèì ñîîáøåíèå, ÷òî íåò òàêîãî ìåñÿöà
end;                                //îïåðàòîð âûáîðà càse çàêàí÷èâàåòñÿ
end.