Найти алгоритм решения задачи и реализовать его с помощью оператора(операторов) if-then-else: Машина задумывает два числа

program guess;var a, b, c, d: integer;

procedure guess_num(var c,d:integer);beginReadln(c, d);if ((a = c) or (a = d)) and (a + b = c + d) thenbeginwriteln(\'Вы правильно угадали эти числа\');writeln(\'Задуманные числа: \', a:4, b:4);writeln(\'Введенные числа: \', c:4, d:4);end else if (d<0) or (c<0) then writeln(\'Игра закончена! Игрок проиграл!\')elsebeginwrite(\'Нет!\');guess_num(c,d)endend;

beginrandomize;a:=random(10);b:=random(10);Writeln(\'Я, ПК, задумал два числа. Угадайте,\');Writeln(\'какие это числа, и введите их через пробел.\');guess_num(c,d)end.