Ввести два числа, если они оба четные, найти наибольшее из них. Pascal

спасибо огромное☺️

пожалуйста

var a,b:integer; beginwriteln('Введите два числа');readln(a,b);if (a mod 2=0) and (b mod 2 =0) thenif a>b then write(a) else write (b)end.