Pascal abc принадлежит ли точка заштрихованной области

var

x,y: real

begin

readln(x,y);

if (x> 0) and (y> 0) and (sqr(x)+sqr(y)< =1) then writeln('yes')

else writeln('no')

end.

program tri_chisla;

var a,b,c: integer;

begin

writeln ('vvedit tri chisla a,b,c');

readln (a,b,c);

if (a< b) and (a< c) then

writeln ('naymenshim chislom e - ',a)  

else begin   if (b< a) and (b< c) then

writeln ('naymenshim chislom e - ',b) 

else begin    if (c< b) and (c< a) then

writeln ('naymenshim chislom e - ',c) end; end;  

        //я немного не понял какую именно блок схему тебе нужно.

readln

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

наземныйбезрельсовыйавтомобили;

троллейбусы;

мотоциклы;

мотороллеры;

мопеды;

велосипеды; краны; тракторы; экскаваторы; ; телеги; сани; снегоходы; болотоходы; вездеходы; самокаты; коляски.рельсовый- железнодорожный; -трамваи; - дрезины; - вагонетки; - монорельсовый.водныйморской речной подводныйтеплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке.теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке. подводные лодки; батискафы; батисферы.воздушный- самолеты; - вертолеты; - гидропланы; - планеры; - дельтопланы; дирижабли; воздушные шары.специальный- метро; - эскалаторы; - лифты; - подъемники; - канатные дороги; - транспортеры; трубопроводы; - транспорт войск и спецформирований.