xác định hằng và biến của bài toán: tính diện tích hình tròn với pi=3,14

Chương trình sau:

- Biến là s, r;

- Hằng là pi.

program kaito;

uses crt;

var r, s: real;

const pi=3.14;

begin

   clrscr;

   write('Nhap ban kinh: r = '); readln(r);

   s=pi*r*r;

   writeln('Dien tich hinh tron la: ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!

Program DTHT;
Uses crt;
Const pi=3.14;
Var r,s: extended;
Begin
        Clrscr;
        Write('Nhap r: '); Readln(r);
     s:=sqr(r)*pi;
        Write('Dien tich: ',s:0:2);
       Readln
End.

hằng là pi=3,14

biến r,s