Bài 1:

Program bai1;

Uses crt;

Var r:integer;

Begin

Clrscr;

Write('r='); Readln(r);

Writeln('Dien tich hinh duoc to mau:', (r*r*3.14)-(r*r*2):9:3);

Readln

End.

Bài 2:

Program bai2;

Uses crt;

Var a,b,h:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('h='); Readln(h);

Writeln('Dien tich hinh to mau cam:', (a*b)+(a*h/2):9:3);

Readln

End.

Bài 1 :

program sksk;

uses crt;

var r, s1, s2, s : real;

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh r :');readln(r);

s1 := r*r;

s2 := r*r*pi;

s :=  s2 - s1;

writeln('dien tich phan duoc to mau cam la :', s:8:2);

readln

end.

Bài 2 :

program sksk;

uses crt;

var a, b, h, s : real;

begin

clrscr;

write('nhap so do cua a :');readln(a);

write('nhap so do cua b :');readln(b);

write('nhap so do cua h :');readln(h);

s := a*b + 0.5*a*h;

writeln('dien tich cua hinh la :', s:8:2);

readln

end.