Pascal. Помогите решить. Дано двухзначное число. Написать программу для определения:…

Var b,a1,a2,S: integer; Beginreadln (b); {вводим 2-ух значное число}a1: =b div 10; a2: =b mod 10; S: =a1+a2; if s mod 6=0 then writeln ('Кратно') else writeln ('не кратно'); readln; end.