viết chương trình nhập vào bàn phím 3 số a,b,c. tính và đưa ra mà hình a, diện tích tam giác b, độ dài đường trung tuyến ma,mb,mc c, chu vi và diện tích hình vuông

a) 

program tam_giac;
uses crt;
var a, b, c, cv, s, p:real;
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);
cv:=a+b+c;
p:=(a+b+c)/2;
s :=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi tam giac la: ', cv:6:2);
writeln('Dien tich tam giac la: ',s:6:2);
readln;

end.

b)

program trung_tuyen;
uses crt;
var a, b, c, ma, mb, mc :real;
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);
ma := sqrt((2*(b*b + c*c) - a*a) /4);
mb := sqrt((2*(a*a + c*c) - b*b)/4);
mc := sqrt((2*(a*a + b*b) - c*c)/4);
writeln('do dai duong trung tuyen ma la :',ma:8:2);
writeln('do dai duong trung tuyen mb la :',mb:8:2);
writeln('do dai duong trung tuyen mc la :',mc:8:2);
readln
end.

c)

Program dien_tich;
Uses crt;
Var a, dt, cv : integer;
Begin
Clrscr;
Write('Nhap do dai canh hinh vuong :');readln(a);
cv := a*4;
dt := a*a;
Writeln('Chu vi hinh vuong  la :', cv);
Writeln('Dien tich hinh vuong  la :', dt);
Readln
End.