Ответ: Там где readln (a;h);

Ответ: Большое спасибо!

Ответ:

program pl1

var a, h, s: real;

begin

readln (a);

s:=a*h/2;

writeln(‘s=’, s);

end.