PASCAL - Cálculo de Área de Formas Geométricas

 program AreaQuadrado;

var

  lado: real;

begin

  writeln('Introduza o lado do quadrado:');

  readln(lado);

  writeln('A área do quadrado é: ', lado * lado:0:2);

end.