Ответы и объяснения

2014-03-09T18:16:49+00:00
Var
  a, b : integer;
begin
  read (a, b);
  write ((a + b) / 2);
end.

при x = 6 будет x := 10
при x = -5 будет x := 5

var
  a, b, c : integer;
begin
  read (a, b, c);
  if (a = b) or (b = c) or (a = c) then write ('YES') else write ('NO');
end.

цикл выполнится 1 раз, k = 0, p = 2