Viết chương trình pascal: Nhập cạnh và tính chu vi, diện tích hình vuông

Đề: Viết chương trình pascal: Nhập cạnh và tính chu vi, diện tích hình vuông.

Giải:

Mã:

program ct1;
uses crt;
var a, c, s: real;
begin
  write('nhap canh: ');
  readln(a);
  c := a * 4;
  write('chu vi = ', c);
  s := a * a;
  write('dien tich = ', s);
  readln;
end.

Viết bài 1 lần, nhận nhuận bút cả đời: Đăng Ký