Вдекартовой системе координат задана окружность радиуса r1 с центром в начале координат и точка a(x, y определить, лежит ли точка а внутри окружности (уравнение круга

Var x,y,r:real;
begin
      writeln('Введите x,y,r через пробел:');
      readln(x,y,r);
      if sqr(x)+sqr(y)<=sqr(r) then writeln('Лежит внутри') else writeln('Находится вне круга');
end.

Я бы поступил так...
а) Что бы любой больной мог заполнять карту заявку, создал бы обще доступное имя входа, тобиш акаунт "гость" или "посетитель" и разрешил бы доступ только к одной таблице, "карта заявка". То есть что бы кроме карты заявки они ничего сделать больше не смогли.
б) для каждого сотрудника больницы сделал бы свой логин и пароль для доступа к базе данных, и разрешил бы им вход только в базы данных которые им нужны для работы.
г) Ну и если произойдёт какая либо утечка информации, то за счёт того что у каждого сотрудника свой персональный логин и пароль, мы сможем посмотреть логи. и свободно выявить, кто нарушил политику информационной безопасности, и наказать виновного.

Содержание:
1.      История развития систем счисления.                                                                2

2.      Двоичные системы счисления                                                                           6

3.      Двоичная арифметика                                                                                         10

4.      Формы представления чисел с фиксированной и плавающей запятой.        13

5.      Сложение чисел с фиксированной запятой.                                                     16

6.      Сложение чисел с плавающей запятой.                                                             16

7.      Умножение чисел с фиксированной запятой.                                                   17

8.      Умножение чисел с плавающей запятой.                                                          18

9.   Прямой, обратный и дополнительный коды. Модифицированный код.        20