Нужно сделать в Basic (Очень до 22 числа)

// 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

k = 5

Объяснение:

q = 15 s = 0 i = 1

Цикл с постусловием:

s = s + i

i = i + 1

выход из цикла когда s > q

q = 15 s = 0 i = 1

s = 0 + 1 = 1

i = 1 + 1 = 2

1 > 15 (НЕТ)

q = 15 s = 1 i = 2

s = 1 + 2 = 3

i = 2 + 1 = 3

3 > 15 (НЕТ)

q = 15 s = 3 i = 3

s = 3 + 3 = 6

i = 3 + 1 = 4

6 > 15 (НЕТ)

q = 15 s = 6 i = 4

s = 6 + 4 = 10

i = 4 + 1 = 5

10 > 15 (НЕТ)

q = 15 s = 10 i = 5

s = 10 + 5 = 15

i = 5 + 1 = 6

15 > 15 (НЕТ)

q = 15 s = 15 i = 6

s = 15 + 6 = 21

i = 6 + 1 = 7

21 > 15 (ДА) - выход из цикла

q = 15 s = 21 i = 7

k = i - 2

k = 7 - 2 = 5