составить программу для целого двузначного числа А найти сумму и частное его цифр

program massiv;var A,B,C:integer;beginA:=random(90)+10;writeln(A);B:=A div 10;C:=A mod 10;writeln('Первая цифра числа: ',B);writeln('Вторая цифра числа: ',C);writeln('Сумма цифр = ',B+C);if C=0 thenwriteln('На ноль делить нельзя')elsewriteln('Частное цифр = ',B/C);end.