Дано действительное число r вида nnn.ddd (три цифровых разряда в целой и дробной частях поменять местами дробную и целую части числа и вывести полученное значение числа.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var s:=ReadReal('r=').ToString;
  var p:=Pos('.',s);
  Writeln(Copy(s,p+1,3)+'.'+Copy(s,p-3,3))
end.

Тестовое решение:
r= 234.652
652.234

Var
  a,b,c,d,x,y:real;
begin
  Write('Введите размеры сторон сундука -> '); Readln(a,b,c);
  Write('Введите диаметр иллюминатора -> '); Readln(d);
  if a<b then begin
    x:=a;
    if b<c then y:=b else y:=c
  end
  else begin
    x:=b;
    if a<c then y:=a else y:=c
  end;
  if (sqr(x)+sqr(y)<sqr(d)) then Writeln('Сундук можно вытащить')
  else Writeln('Сундук нельзя вытащить')
end.

Тестовое решение:
Введите размеры сторон сундука -> 3 5 3.99
Введите диаметр иллюминатора -> 5
Сундук можно вытащить

**********************
Условие попадания точки A(x,y) внутрь треугольника описывается как


var
  x,y:real;
begin
  Write('Введите координаты x и y точки -> '); Readln(x,y);
  if (x>=0) and (y>=0) and (y<=5-x) then Writeln('Да')
  else Writeln('Нет')
end.

Тестовое решение:
Введите координаты x и y точки -> 3 2.5
Нет

Введите координаты x и y точки -> 2.1 2.8
Да

Var
  i,n,k:integer;
  p:longint;
  f,ff:boolean;
begin
  Write('Введите количество чисел -> '); Readln(n);
  Writeln('Тeперь вводите сами числа');
  p:=1; f:=false; ff:=false;
  for i:=1 to n do
  begin
    Read(k);
    f:=((k<0) and ((k mod 2)<>0));
    ff:=(ff or f);
    if f then p:=p*k
  end;
  if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)
  else Writeln('Не было введено ни одного отрицательного нечетного числа')
end.

Тестовое решение:
Введите количество чисел -> 10
Тeперь вводите сами числа
5 -7 16 0 -3 4 -6 2 1 8
Произведение нечетных отрицательных чисел: 21