viết chương trình nhập vào chu vi hình vuông từ bàn phím. Tính diện tích hình vuông.) lưu ý: dữ liệu nhập vào khai báo kiểu số thực, kết quả làm tròn gồm 1 chữ số thập phân )

2 câu trả lời

uses crt;
var input: real;
begin
clrscr;
    readln(input);
    writeln((input/4) * (input/4):0:1);
readln;
end.

uses crt;

var a,S:real;

begin

write('nhap chu vi hvg:');readln(a);

S:=(a/4)*(a/4);

writeln('Dien tich hinh vg la:',S);

readln;

end.