Bài 1: Viết chương trình pascal nhập vào bán kính hình tròn. Tính chu vi , diện tích hình tròn Bài 2 Viết chương trình pascal nhập vào cạnh hình vuông. Tính chu vi, diện tích hình vuông. Nếu nhập xong chương trình vào máy tính rồi thì ấn nút j để ra màn hình màu đen? Mong mọi người giải giúp mik mik sẽ cho 5 sao ngay sau khi có câu trả lời

Bài 1:

Program hinh_tron;
Uses crt;
Var r:real;
Begin
clrscr;
Write('Nhap ban kinh:'); readln(r);

Writeln('Chu vi hinh tron la:',2*pi*r:10:2);
Writeln('Dien tich hinh tron la:',pi*r*r:10:2);
Readln
End.

Bài 1:

Program BTT;
Uses crt;
Var r,s,p: real;
Const Pi=3.14;
Begin
        Clrscr;
        Write('Nhap r: '); Readln(r);
        p:=2*r*pi;
        s:=sqr(r)*pi;
        Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a,s,p: real;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        p:=a*4;
        s:=sqr(a);
        Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
        Readln
End.

Bài 3: Sau khi nhập xong chương trình, bấm Ctrl + F9 để ra màn hình đen