В Паскале пожалуйста найдите количество двухзачных чисел, сумма цифр которых…

program noname; uses crt; vark,n: integer; beginclrscr; k: =0; for n: =10 to 99 doif n mod 10+n div 10=4 then k: =k+1; writeln (k,'-кол-во двухзначных чисел, сумма которых равна 4'); end.