mình mới học mấy cái cơ bản mọi người giúp mình giải chi tiết xíu nha

6;

var a,s: real;
begin
    readln(a,s);
    writeln(s/a:0:2);

    write((a+s/a)*2:0:2);
end.

7;

var a,b,c: real;
begin
    readln(a,b,c);
    write(sqrt((a+b+c)/2*((a+b+c)/2-a)*((a+b+c)/2-b)*((a+b+c)/2-c)):0:2);
end.

Câu 6:

var dt,a:integer;
begin
   read(a,dt);
   writeln(dt/a:0:2);
   write((a+dt/a)*2:0:2);
end.

Câu 7:

var a,b,c,p:real;
begin
   read(a,b,c);
   p:=(a+b+c)/2;
   write(sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
end.