... crt;•Var a, b, c, d, x1, x2: real;Var a, b, c, d, x1, x2: real;•BeginBegin• Clrscr;Clrscr;•Writeln (‘Nhap cac he so a, b, c’);Writeln (‘Nhap cac he so a, b, c’);•Readln (a,b,c);Readln (a,b,c);•d:= b*b ... sqrt(d))/(2*a):0:8);writeln (‘x2=’,(-b - sqrt(d))/(2*a):0:8);• end;end;•readln;readln;•End.End. Ví dụ 2: Ví dụ 2: Tìm số ngày của năm N, biết rằng năm nhuận là Tìm số ... N, sn: integer;Var N, sn: integer;•BeginBegin• Clrscr;Clrscr;• Writeln (‘Nam’); readln (N);Writeln (‘Nam’); readln (N);•If (N mod 400 = 0) or ((N mod 4 = 0) and (N mod If (N mod 400 = 0) or...