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

да

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

var

 x : integer;

 begin

   write('x=');

   readln(x);

   if x mod 10 = 4 then

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

   else

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

 end.

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

желтый знак - нехватка памяти

все остальное - размер