program cau1;
uses crt;
var r:integer;
c,s:real;
begin
write('nhap ban kinh'); readln(r);
c:=pi*r*r;
s:=2*pi*r;
Writeln(‘Dien tich hinh tron la:’,s:6:2); Writeln(‘Chu vi hinh tron la:’,c:6:2);
Readln;
End.
Program câu 2
uses crt;
var a,b:real;
t:integer;
begin
clrscr;
writeln ('Nhap a,b');
readln (a,b);
t:=0;
while a+(a*0.015*t)<>B do t:=t+1;
writeln ('So Thang:',t);
readln;
