Area del cuadrado pascal

program area_del_cuadrado;
uses wincrt;
var
a,b:integer;
begin
writeln('Calculo del area de un Triangulo');
 writeln('introduzca valor de A');
 readln(a);
 b:=(a*a);
 write('el area del triengulo es ',b );
end.