Составьте блок схему вычисления площади круга при r 4

const Pi = 3.1415;  
const R = 4; 
S: real; // площадь круга  
begin
S := Pi*R*R;
writeln('Площадь круга равна ',S);
end.