[за спам сразу кину репорт]

Думаю, так

Объяснение:

1) var a,b,c:int64;

  begin

  readln (a,b,c);

  writeln (sqr(c) div a - b mod (a-b) div b);

  end.

2) var a,b,c:int64;

  begin

  readln (a,b,c);

  writeln (round(sqrt(a)) div (c-b) mod (a-b) div (c-a));

  end.