Есть такое задание на паскале: Есть цифры a,b,c печатать y=1 если одно хоть одно из этих цифр парное если нет то y=2

Если правильнл понял то.
Uses crt;
Var a,b,c:integer;
Begin
clrscr;
If (a=b) or (b=c) or (a=c) writeln('y=',1)
Else writeln('y=',2);
End.