Даю 35 баллов!!!!
Напишите пожалуйста программу в Паскаль по информатике (правильную)

Программа на 5.Program CelChis;var c: integer;BeginRandomize;c:=random(90)+10;Writeln('Случайное число ', c);Writeln('Сумма цифр числа ', c, ' равна ', c div 10 + c mod 10);Writeln('Произведение цифр числа ', c, ' равно ', (c div 10) * (c mod 10));Writeln('Перестановка цифр числа ', c, ' даст число ', c div 10 + (c mod 10)*10);End.Программа написана для ABC Pascal. Если используется turbo pascal или его аналоги, перед var пишем uses crt; и перед End. пишем readln (чтобы после завершения программы консоль ждала нажатия клавиши Enter, а не возвращала обратно к тексту программы).