Question

Помогите написать на языке Pascal S=1/2ah

Answer 1

Program plochad;
var a, h: real;
begin
readln(a, h);
S:=0.5*a*h;
write('S=', S);
end.

Answer 2

Var
    a, h: real;

begin
    readln(a, h);
    writeln('S=', 0.5 * a * h);
end.