dai dep trai day cung

Program DIEN_TICH_HINH_TRON;
uses crt;
var r, s: real;
begin
clrscr;
Write('TINH DIEN TICH HINH TRON');
Write('======================');
     [Hai cái ở trên cho đẹp thôi]
Write('nhap r='); readln(r);<br />s:= r*r*pi;<br />Write('Dien tich hinh tron la:',s:0:0);
readln;
end.

 

Clrscr là j z ạ

Program s_hinh_tron;
uses crt ;
var a, s:real;
const pi=3.14;
begin
Clrscr; 
write ('hay nhap a:'); readln (a); 
s:=a*a*3.14;
writeln ('dien tich la:', s:2:1);
readln;
end. 
Like cho minh nhe!