В кинотеатре поставили бота который определяет имя и возвраст после ввода данных бот опредеяет можно ли

Можно ли боту выгонять тех кто его не слушается

мне кажеться да.Ну если данные это же Имя Возрамт

Function s(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; var a,b,c,q,w,h,d,x1,x2: real; g: string; k: integer; begin writeln('добро в ! как дела? '); readln(g); writeln('воспользоваться формулой герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)'); readln(k); case k of   1: begin     write('a = ');     readln(a);     write('b = ');     readln(b);     write('c = ');     readln(c);     writeln('s = ',s(a,b,c));     end;   2: begin     writeln('введите проекции');     readln(q,w);     h: =sqrt(q*q+w*w);     writeln('высота=',h);     end;   3: begin     writeln ('введите коэффициенты квадратного уравнения: a,b,c');     readln (a,b,c);     d: =b*b-4*a*c;     if d< 0 then writeln ('корней нет ')     else       begin       x1: =(-b+sqrt(d))/2/a;       x2: =(-b-sqrt(d))/2/a;       writeln ('x1=',x1: 8: 3,' x2=',x2: 8: 3);       end;     end; end; end. пример: добро в ! как дела? ok воспользоваться формулой герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3) 1 a = 3 b = 4 c = 5 s = 6 ps. все формулы в программе оставлены без изменения!