Viết chương trình tính diện tích hình tam giác (có sử dụng biến nhớ)

Program qtruong;
Uses crt;
Var r, s: real;
Const pi=3.14;
Begin
Clrscr;
Write(‘Nhap canh r = ‘); readln(r);
s:=sqr(r)*pi;
Writeln(‘DIen tich cua tam giac la: ‘,s:4:2);
Readln
end.