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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

program ran;

label main;

var

x, y, min, max, s, p, d: integer;

begin

randomize;

writeln(‘ВВОД ПРОМЕЖУТКА’);

write(‘от: ‘);

readln(min);

write(‘до: ‘);

readln(max);

main:

x := min + random(max — min + 1);

y := min + random(max — min + 1);

if not(x = y) then

begin

s := x + y;

writeln(‘сумма: ‘, s);

p := x * y;

writeln(‘произведение: ‘, p);

if p > s then

begin

d := p — s;

writeln(‘произведение больше суммы на ‘, d);

end;

end

else

begin

writeln(‘случайные числа равны, повтор генерации…’);

goto main;

end;

end.