Помогите решить вот это

Блок-схема - в прилагаемом файле.
Program P;
var a,b,s:real;
begin
write('a='); readln(a);
write('b='); readln(b);
s:=a*b/2;
writeln('s=',s);
end.

Пример:
a=3
b=4
s=6