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

Question

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

Answer 1

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

---