Постійна сума цифр

Знайти кількість двохзначних чисел, які не змінюють свою суму цифр при множені числа на однозначне ціле число N (N=0..9).

Вхідні дані: Ціле число N. 0≤N≤9.

Вихідні дані: Відповідь до задачі.

Вхідні дані

2

Вихідні дані

10

Пояснення: При множенні двоцифрових чисел на 2 не змінюють суму цифр такі числа: 18 27 36 45 54 63 72 81 90 99.

program pos_s_cifr;

var l : integer;

n,s1,k,s2,i : byte;

BEGIN

readln (n);

k:=0;

 for i:=10 to 99 do begin

  s1:=0;

  s2:=0;

  l:=i;

   while l<>0 do begin

   s1:=s1+ l mod 10;

   l:=l div 10;

   end;

   l:=i*n;

   while l<>0 do begin

   s2:=s2 + l mod 10;

   l:=l div 10;

   end;

  if s1=s2 then k:=k+1;

 end;

writeln (k);

END.