Бабушка испекла пирог. Пока она наливала чай, два куска пирога исчезли. За столом сидели три внука: Вася, Сережа и Максим. На вопрос бабушки: "Кто съел пирог?" . Каждый из них ответил. Вася: "Я не ел пирог. Это сделал Максим".
Сережа: "Максим не ел пирог. Пирог съел Вася".
Максим: "Я не виноват, но и Сережа тут ни при чем".
Бабушка точно знала, что виновных двое, кроме того, они путались в высказываниях, и каждый из них дал только наполовину правдивые ответы. Кто же съел пирог?

Відповідь:Это Сережа и Максим

Пояснення:

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.