Pascal 008 ► Área y perímetro de un cuadrado

Ejericio 008: Área y perímetro de un cuadrado.

Program Pascal_008;
uses crt;
var
    area, perimetro, lado : real;
begin
    area := 0.0;
    perimetro := 0.0;
    WriteLn('Ingresa medida del lado');
    Readln(lado);
    area := lado * lado;
    perimetro := lado * 4;
    WriteLn('Perimetro: ', perimetro:0:2);
    WriteLn('Area: ', area:0:2);
    ReadKey;
end.