-Các em hãy gõ chương trình sau vào Turbo Pascal để chạy và tìm lỗi?
program Tinh_Chu_Vi_Dien_Tich_HV
var a,s,c:longint;
begin
write(‘Nhap vao do dai canh hinh vuong: ’)
read(a);
if a>0 then
begin
c:=4*a;
s:=a*a;
writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c);
writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s)
end
else
write(Du lieu sai, khong the thuc hien duoc! ’);
readln
end.
Bạn tham khảo nhé.