Запросить с клавиатуры величину катета прямоугольного равностороннего треугольника a.вывести на экран ,его площадь,вычесленную по формуле s=0.5*a^2 ! , зайки выручаете!

PASCALABC.NET 

Var
a : integer;
s: real;
Begin
Readln(a);
s:= a * a / 2;
Writeln(s);
end.