Запишите на языке Паскаль программу, которая для произвольного двузначного…

vara,b,c,d,e: integer; beginwriteln ('vvedity chislo ot 11 do 99 ili vvedity 0 dlya generacii sluchainogo chisla'); readln (a); if a=0 thenbeginrandomize; a: =random (89)+10end; b: =a div 10; c: =a mod 10; d: =b+c; e: =b*c; writeln ('chislo=',a); writeln ('summa cifr chisla ',a,'=',d); writeln ('proizvedenie cifr chisla ',a,'=',e); writeln ('chislo obrazovanoe perestanovkoi cifr chisla ',a,'=',c,b); readln; end.