program z;
var a:integer;
begin
read(a);
if a mod 2 = 0 then write(sqrt(a))
end.
Объяснение:
если число чётное, то выводим корень из числа, иначе программа ничего не делает (просто завершается)
если нужно добавить вывод числа без изменений, то перед end вставить строку:
else write(a)
