Viết 1 chương trình trong free pascal ít nhất 10 dòng lệnh

program tam_giac;
uses crt;
var a, b, c : integer;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);
if (a =b) or (a=c) or (b=c) then
writeln('ba so nguyen duong la canh cua tam giac can')
else writeln('ba so nguyen duong khong la do dai ba canh tam giac can ');
readln
end.

Các câu lệnh

1. SYSTEM

• write(): in ra màn hình liền sau kí tự cuối.
• writeln(): in xuống một hàng.
• read(): đọc biến.
• readln: dừng chương trình

2. Uses CRT        

• clrscr  : xoá toàn bộ màn hình.
• textcolor()  : in chữ màu.
• textbackground()  : tô màu cho màn hình.
• sound()  : tạo âm thanh.
• delay()  : làm trễ.
• nosound  : tắt âm thanh.
• windows(x1,y1,x2,y2)  : thay đổi cửa sổ màn hình.
• highvideo  : tăng độ sáng màn hình.
• lowvideo  : giảm độ sáng màn hình.
• normvideo  : màn hình trở lại chế độ sáng bình thường.
• gotoxy(x,y)  : đưa con trỏ đến vị trí x,y trên màn hình.
• deline  : xoá một dòng đang chứa con trỏ.
• clreol  : xoá các ký tự từ vị trí con trỏ đến cuối mà không di chuyển vị trí con trỏ.
• insline  : chèn thêm một dòng vào vị trí của con trỏ hiện hành.
• exit  : thoát khỏi chương trình.
• textmode(co40)  : tạo kiểu chữ lớn.
• randomize  : khởi tạo chế độ ngẫu nhiên.
• move(var 1,var 2,n)  : sao chép trong bộ nhớ một khối n byte từ biến Var 1 sang biến Var 2.
• halt  : Ngưng thực hiện chương trình và trở về hệ điều hành.
• Abs(n)  : Giá trị tuyệt đối.
• Arctan(x)  : cho kết quả là hàm Arctan(x).
• Cos(x)  : cho kết quả là cos(x).
• Exp(x)  : hàm số mũ cơ số tự nhiên e^x.
• Frac(x)  : cho kết quả là phần thập phân của số x.
• int(x)  : cho kết quả là phần nguyên của số thập phân x.
• ln(x)  : Hàm logarit cơ số tự nhiên.
• sin(x)  : cho kết quả là sin(x), với x tính bằng Radian.
• Sqr(x)  : bình phương của số x.
• Sqrt(x)  : cho kết quả là căn bậc hai của x.
• pred(x)  : cho kết quả là số nguyên đứng trước số nguyên x.
• Suuc(x)  : cho kết quả là số nguyên đứng sau số nguyên x.
• odd(x)  : cho kết quả là true nếu x số lẻ, ngược lại là false.
• chr(x)  : trả về một kí tự có vị trí là x trong bảng mã ASCII.
• Ord(x)  : trả về một số thứ tự của kí tự x.
• round(n)  : Làm tròn số thực n.
• Random(n)  : cho một số ngẫu nhiên trong phạm vi n.
• upcase(n)  : đổi kí tự chữ thường sang chữ hoa.
• assign(f,)  : tạo file.
• rewrite(f)  : khởi tạo.
• append(f)  : chèn thêm dữ liệu cho file.
• close(f)  : tắt file.
• erase(f)  : xóa.
• rename()  : đổi tên cho file.
• length(s)  : cho kết quả là chiều dài của xâu.
• copy(s,a,b)  : copy xâu.
• insert(,s,a)  : chèn thêm cho xâu.
• delete(s,a,b)  : xoá xâu.