Nhập vào cạnh và chiều cao của hình tam giác.In ra màn hình diện tích và chu vi của nó

Uses Crt;
Var r,dt,cv:real;
Begin
   Clrscr;
   Writeln('TINH DIEN TICH & CHU VI HINH TRON:');
   Writeln('——————————————————');
   Write ('Nhap ban kinh R=');readln(r);
   dt:=pi*r*r;
   cv:=2*pi*r;
   Writeln('Dien tich hinh tron la:',dt:6:2);
   Writeln('Chu vi hinh tron la:',cv:6:2);
   Readln;
End.

chúc bạn học tốt!

var:c=canh;

      h=chieucao;

begin;

writeln("canh:");

readln("canh");

writeln("chieucao");

readln("chieucao");

writeln("dientichla:");

writeln("c*h/2");

writeln("chuvila:");

writeln("c*3");

end.