Question

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

Answer 1

var
    a, h: real;

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

Answer 2

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