... ok:=true; write('Nhap n: ');readln(n);Trang 19 100 bài tập Turbo Pascal 100 bài tập Turbo Pascal Trang 1 100 bài tập Turbo Pascal for i:= 2 to n - 1 do if n mod i = 0 then ok :=ok ... x1=',(-b+sqrt(delta))/(2*a),'x2=',(-b+sqrt(delta))/(2*a));end;{ }Trang 29 100 bài tập Turbo Pascal BÀI TẬP TURBO PASCAL I. Làm quen với chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào ra. Bài tập 1.1:Viết chương trình tính ... readlnend. Bài tập 3.7In bảng cửu chương n (Với n nhập từ bàn phím)a.Hướng dẫn :b. Mã chương trình:Program Cuu_Chuong_1;uses crt;var n, i : integer;Trang 18 100 bài tập Turbo Pascal begin...