Ввести 3 стороны треугольника, вывести его площадь. (на языке паскаль) ввести число , вывести квалратный корень.

Program gt;
var p,s,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.
2)
program gt;
var s,a:real'
begin
readln(a);
s:=sqrt(A);
writeln(s);
end.