Bài 1:

program bai_giai1;
uses crt;
var cv,dt:real;
begin
    clrscr;
    cv:=2*10*3.14;
    dt:=10*10*3.14;
    writeln(dt:10:2);
    writeln(cv:10:2);
    readln;
end.

Bài 2:
program bai_giai2;
uses crt;
var cv,dt:integer;
begin
    clrscr;
    cv:=(8+4)*2;
    dt:=8*4;
    writeln(dt:10);
    writeln(cv:10);
    readln;
end.

Bài 3:
program bai_giai3;
uses crt;
var cv,dt:integer;
begin
    clrscr;
    cv:=5*4;
    dt:=5*5;
    writeln(dt:10);
    writeln(cv:10);
    readln;
end.

3 bài này mình làm chuẩn rồi nhé. Bạn nhớ tick cho mình nhé. có thắc mắc thì nói mới mình nhé 🤩

Bài 1:

uses crt;
begin
    clrscr;
    writeln(10*10*3.14:10:2);           {dien tich}
    writeln(10*2*3.14:10:2);             {chu vi}    
    readln;
end.

Bài 2

uses crt;
begin
    clrscr;
    writeln(8*4:10);           {dien tich}
    writeln((8+4)*2:10);             {chu vi}    
    readln;
end.

Bài  3:

uses crt;
begin
    clrscr;
    writeln(5*5:10);             {dien tich}
    writeln(5*4:10);             {chu vi}    
    readln;
end.