1)главное меню
2)всплывающее меню
3)контекстное меню
4)системное меню
Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>end. </span>
Ну учиться Пользоваться компьютером