... Crt;Const fn = 'P6.INP';Var i,j,N: integer; a: array[1 100] of real; s: real; Kq: boolean;{ }Procedure Nhap;Var f: text; If i > n then begin thughinhancauhinh; exit; end;For ii ... 'P7.INP';fg = 'P7.OUT';max = 100; exp = 0.0001;Vara ,b ,c : array[1 max] of real;n : integer;smien : integer;Procedure Nhap;Varf : text;i : integer;BeginAssign( f ,fn ... 1;End;(* *)Function Giaodiem( i ,j : integer;Var x ,y : real ) : boolean;Vard ,dx ,dy :real;Begind := a[i] * b[j] - a[j] * b[i]; Lời giải đề Toán Tin Tin học & Nhà trườngHà Nội - 2002...