viết thuật toán và chương trình tính chu vi diện tích của hình vuông

program Hinh_chu_nhat;
uses crt;
var a, S, CV: integer;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
CV:= a*4;
S:= a*a;
Writeln('Chu vi hinh vuong la :', CV);
Writeln('Dien tich hinh vuong la : ', S);
Readln
end.

*Thuật toán:

Bước 1: Nhập chiều dài a của hình vuông

Bước 2: C←a*4

Bước 3: S←a*a

Bước 4:Xuất C,S ra màn hình va kết thúc thuật toán

*Chương trình:

Program baitap;

Uses crt;

Var a,C,S:real;

Begin

Clrscr;

Write('Nhap chieu dai 1 canh:'); Readln(a);

C:=a*4;

S:=a*a;

Writeln('Chu vi hinh vuong:',C:5:2);

Writeln('Dien tich hinh vuong:',S:5:2);

Readln

End.