Окружность с радиусом R вписана в квадрат .найти диагонали и периметр квадрата — Pascal(Паскаль)

var
 r,d:real;
begin
 writeln('Введите радиус');
 readln(r);
 d:=r*sqrt(8);  //диагональ
 p:=8*p;  //периметр
 writeln('Диагональ', d);
 writeln('Периметр', p);
end.