Question

ПОМОГИТЕ НАЙТИ ОШИБКУ!
Program A1;
var a,b : integer;
begin
readln(a,b);
if a=1 then
if a=b then
writeln ('YES')
else
writeln ('NO');
else if (b <> 1)
then writeln('YES')
else
writeln( 'NO')
end.