Построить блок схему и создать программку на языке Паскаль:Найти площадь окружности,

Построить блок схему и разработать программку на языке Паскаль:

Найти площадь окружности, вписанной в равнобедренную трапецию, с основаниями a b и боковой стороной с. Я попробовал написать программку, не уверен в корректности. Моя ахинея:
const
pi=3.14;

var
figure: byte;
a,b,r,c,f:real;
f:real:=sqrt(a*b)
begin
write(0.5*f);
readln(d);
s:= pi * sqr(d) / 4
end.