Написать программу на паскале: для целого двузначного числа x найти разность и произведение его цифр. и сделать блок схему или алгоритм

Begin

var a:=ReadInteger('Введите двузначное число :');

var b:=a mod 10 ; var c:= a div 10;

Writeln('Разность =',c-b);

Writeln('Произведение  =',c*b);

end.