Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
Если нажать на зеленый флаг, то машина будет двигаться, пока не "наедет" на белый цвет, не знаю, что значит "спрятаться", но в любом случае скрипт остановится.
программное так как в нем открыта та вкладка которую ты открыла на главном окне
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.