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

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

procedure guess_num(var c,d:integer);
begin
Readln(c, d);
if ((a = c) or (a = d)) and (a + b = c + d) then
begin
writeln(Вы верно угадали эти числа);
writeln(Задуманные числа: , a:4, b:4);
writeln(Введенные числа: , c:4, d:4);
end
else
if (dlt;0) or (clt;0) then writeln(Забава окончена! Игрок проиграл!)
else
begin
write(Нет!);
guess_num(c,d)
end
end;

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