Tìm kiếm:

rất mong bạn có thể giúp mình

ai biết đoan chương trình này không .bao mình hiểu cái
program da;
uses crt;
Var
P:real;Y:byte;
Const
W = 208.3; a = 100;
procedure tieude;
begin
textbackground (1);