Ввести 2 целых числа. Вывести их творение, если они разных символов

program zz1;

var a, b:integer; // задаем переменные целого типа

begin

write( введите 1-ое число );  //вводим с клавиатуры 1-ое число

read(a);  

write( введите 2-ое число );  //вводим с клавиатуры второе число

read(b);

if a * b lt; 0 // проверяем, если числа различных символов, то произведение этих чисел будет отрицательным и получаем творение чисел, по другому - сумму

then write( творенье двух чисел = , a * b) else write( сумма двух чисел = , a + b);

// выводим ответ в зависимости от корректности условия

end.