Пож помогите по инфр

Question

Пож помогите по инфр

---

Answer 1

Var a, b:integer;
begin
readln(a, b);
if a
end.