Даны два числа .Если они не равны ,то найти их сумму и произведение . Если произведение больше суммы ,то определить на сколько. Числа ввести случайным образом на интервале заданном клавиатуры.Помогите решить пожалуйста!

program ran;label main;varx, y, min, max, s, p, d: integer;beginrandomize;writeln('ВВОД ПРОМЕЖУТКА');write('от: ');readln(min);write('до: ');readln(max);main:x := min + random(max - min + 1);y := min + random(max - min + 1);if not(x = y) thenbegins := x + y;writeln('сумма: ', s);p := x * y;writeln('произведение: ', p);if p > s thenbegind := p - s;writeln('произведение больше суммы на ', d);end;endelsebeginwriteln('случайные числа равны, повтор генерации...');goto main;end;end.