Viết chương trình tính chu vi, và diện tích của hình vuông

1)Chu vi:

program minhslav;

uses crt;

var a,b,S,DT :integer;

begin

clrscr;

write(‘Nhap a: ‘);readln(a);

S:=a*4

write(‘Chu vi la: ‘,S);

readln;

end.

2)Diện tích:

program minhslav;

uses crt;

var a,DT :integer;

begin

clrscr;

write(‘Nhap a: ‘);readln(a);

DT:=a*a

write(‘Dien tich la: ‘,DT);

readln;

end.