Для данной логической схемы значение F1 невозможно для
следующей комбинации входных сигналов (А, В,С)
(0; 0; 1)
(0; 0; 0)
(1; 0; 0)
(0; 1; 1)

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.