program text;
uses crt;
var i:integer;
    a,b,c,ha,hb,hc,p,S:real;
    X,Y:array[1..3] of integer;
Begin
   clrscr;
   Writeln('Nhap toa do cac dinh A, B, C:');
   for i:= 1 to 3 do readln(X[i],Y[i]);
   a:=sqrt(sqr(X[2]-X[3])+sqr(Y[2]-Y[3]));
   b:=sqrt(sqr(X[1]-X[3])+sqr(Y[1]-Y[3]));
   c:=sqrt(sqr(X[2]-X[1])+sqr(Y[2]-Y[1]));
   p:= (a+b+c)/2;
   S:= sqrt(p*(p-a)*(p-b)*(p-c));
   Writeln('Dien tich cua tam giac la: ',S:0:4);
   ha:=2*S/a;
   hb:=2*S/b;
   hc:=2*S/c;
   writeln('ha = ',ha:0:2,' hb = ',hb:0:2,' hc = ',hc:0:2);
   readln;
end.

uses crt;

var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;

begin

clrscr;

readln(xa,ya,xb,yb,xc,yc);

ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));

ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));

bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));

p:=(ab+bc+ac)/2;

s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));

writeln(s:4:2);

readln;

end.

Thế còn í b ạ

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a*a+b*b);

readln;

end.

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

Tiết học đầu tiên của lớp em trong một tuần là tiết tập đọc. Đó cũng là tiết học mà em yêu thích nhất.

Vì trước đó là tiết chào cờ, nên cô giáo của em sẽ mặc một chiếc áo dài màu xanh dương - đồng phục của giáo viên bước vào lớp. Cô Oanh  có vẻ ngoài rất bình thường với dáng người hơi mũm mĩm. Nhưng khi khoác lên mình tà áo dài, kết hợp với mái tóc đen buông dài đến ngang vai, trông cô dịu dàng và xinh đẹp đến lạ kì. Bước vào lớp, cô sẽ đứng giữa bục giảng, dịu dàng nhìn xung quanh cả lớp. Sau khi cả lớp chào cô, thì cô sẽ ra hiệu mọi người ngồi xuống và trở về chỗ của mình. Khi cô mở sách ra, chúng em cũng sẽ đồng loạt mở sách, không cần cô dặn, bởi đó là thói quen đã được hình thành suốt cả năm học. Sau khi cả lớp đã sẵn sàng, cô Oanh  sẽ bắt đầu đọc bài. Ngày hôm nay, cô đọc văn bản “Lớp học trên đường”. Giọng cô rất hay và vang vọng. Từng câu thoại của nhân vật đều được cô đọc với tông giọng như một diễn viên thực thụ. Thỉnh thoảng, cô sẽ rời mắt khỏi trang sách, nhìn xuống chúng em xem có bạn nào làm việc riêng hay không. Rồi khẽ đẩy chiếc kính trên mũi lại và đọc tiếp. Cứ như vậy, cô đọc mẫu hết ba lần bài đọc, đảm bảo chúng em nắm rõ cách ngắt câu, nhấn giọng trong mỗi đoạn văn thì mới dừng lại. Sau đó, sẽ đến lúc chúng em bắt đầu đứng dậy đọc bài theo sự chỉ dẫn của cô.