mình học pascal ạ giúp mình với

công thức:

* Hình chữ nhật

- Diện tích chữ nhật: a*b

-> Độ dài cạnh còn lại: `s/a`

- Chu vi: (a+b)*2

6;

uses crt;
var a,s,b,p: real;
begin
    readln(a,s);
    b:=s/a;
    p:=(a+b)*2;
    writeln(b:0:2);
    write(p:0:2);
end.

7;

uses math;
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.

6.

uses crt;
var n,s,m:real;
begin
clrscr;
readln(n,s);
m:=n/s;
writeln(m:0:2);
writeln((n+m)*2:0:2);
readln
end.

7.

uses crt;
var a,b,c:real;
begin
clrscr;
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:5);
readln
end.