program Lop8A;                            chương trình có tên Lop8A

uses crt;                                            khai báo tên thư viện là crt

conts pl=3.14;                                  khai báo hằng số pi =3,14

var s,a: real;                                       khai báo giá trị s và a thuộc kiểu số thực

begin                                                  bắt đầu chương trình

write('Nhap a:');                                 Người dùng nhập vào giá trị a liền sau kí tự cuối

readln(a);                                            in ra màn hình a và đưa con trỏ xuống dòng

S:=a*a*pI;                                            tính diện tích bằng cách lấy a nhân a nhân với số pI

Writeln('Dien tich = ',s:4:2');            Tính ra giá trị "Dien tich = " cách 4 khoảng  trống và làm tròn chữ số thập phân thứ 2                                                                   

end.                                                       kết thúc chương trình

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

Dòng 1 : khai báo tên chương trình là Lop8A

Dòng 2 : khai báo thư viện crt;

Dòng 3 : khai báo hằng pi có giá trị là 3,14

Dòng 4 : khai báo biến s và a với kiểu số thực

Dòng 5 : từ khóa bắt đầu thân chương trình

Dòng 6 : in ra màn hình Nhap a :

Dòng 7 : giá trị nhập từ bàn phím gán cho biến a

Dòng 8 : a*a*pi gán cho biến S

Dòng 9 : in diện tích ra màn hình

Dòng 10 : kết thúc thân chương trình