Verified answer

Ответ:

program z;

var a:integer;

begin

read(a);

if a mod 2 = 0 then write(sqrt(a))

end.

Объяснение:

если число чётное, то выводим корень из числа, иначе программа ничего не делает (просто завершается)

если нужно добавить вывод числа без изменений, то перед end вставить строку:

else write(a)