1. составьте программу, увеличивающую введенное число на 1, если оно больше или равно100 и уменьшающее число на 1 в противном случае. 2. составить программу, запрашивающую возраст и отвечающую « друг» если возраст введен меньше 16 лет и отвечающую «не знаю тебя» в противном случае. 3. составить программу - отзывающуюся только на имя «петя». ,

PascalABC.NET

begin

 var n := ReadInteger('Введи целое число:');

 if n >= 100 then

   n += 1

 else

   n -= 1;

 Write(n)  

end.

begin

 if ReadInteger('Сколько тебе лет?') < 16 then

   Write('Привет, друг')

 else

   Write('Не знаю тебя')  

end.

begin

 if ReadlnString('Как тебя зовут?') = 'Петя' then

   Writeln('Привет,как дела?')

end.

Если игроков два, то первый может выиграть, если своим ходом добавит в каждую кучу по 2 камня. любой ход второго игрока в этом случае ведет к победе первого. Так что ответ а) игрок, делающий первый ход.
начало :   2к.   3к.   4к.
1 ход 1-го игрока +2 камня к каждой куче
стало:      4       5     6       (всего 15)
 максимально увеличить это количество любым можно только на 6 камней. 15+6=21, а это меньше 25. т.о. второй игрок выиграть этим ходом не может никак.
 минимально увеличить камни можно удвоив первую кучу, тогда в ней станет 8 камней, и следующий (первый) игрок удваивает ее до 16 и выигрывает 

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975