вводятся числа, считается сумма двузначных чисел и произведение однозначных. Ввод оканчивается нулем. Вывести на экран сумму и произведение. Цикл while

Program / /название программы в некоторых версиях;

var

a, d, d1: integer; / /переменные целого типа;

begin

randomize; / /подключаем генератор случайных числе;

a:=random (90) + 10; / /используем случайное число;

d:=a mod 10; / /1 цифра которая делится на 10;

d1: = a div 10; / /2 цифра остаток;

writeln ('число: ', a); / /Вводим число а;

writeln ('сумма: ', d+d1); / /вывод суммы на экран;

writeln ('произведение: ', d*d1) / /вывод произведения на экран;

end.