Напишите программу в Паскале Определить является ли число четным, оканчивающимся на 4

да

потому что оно делиться на два

var

 x : integer;

 begin

   write('x=');

   readln(x);

   if x mod 10 = 4 then

     writeln('Число чётное и оканчивается на 4')

   else

     writeln('Число или нечётное, или не оканчивается на 4');

 end.

954-459=495

все условия соблюдены