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

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