Народ,помогите!!!!К программе надо блок-схему нарисовать!!!!

Какую площадь и периметр будет квадрат, описанный вокруг круга заданной площади S.
program lizochka;
uses crt;
var r:real;
label m1;
begin
cls;
m1:
writeln('введіть радіус кола');
read(r);
if (r<0)
then
begin writeln('радіус кола не може бути менше нуля');
goto m1;
end;
r:=(r*r*3.14);
writeln(r);
end.