Viết chương trình in ra màn hình kết quả diện tích hình vuông. Độ dài cạnh hình vuông nhập từ bàn phím

2 câu trả lời

program bai_giai;
uses crt;
var a:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('dien tich hinh vuong do la:',a*a);
 readln;
end.

Program dien_tich;
Uses crt;
Var a, S : real;
Begin
Clrscr;
Write('Nhap do dai canh hinh vuong :');readln(a);
S := a*a;
Writeln('Dien tich hinh vuong  la :', S:8:2);
Readln

End.