Создать блок-схему к программу паскаль .cпасибо заранее
program p20;
var a,b,c: real; i,n: integer;
function f(x: real): real;
begin
f: =sqr(x)*x*sqr(x)+1;
end;
begin
a: =0; b: =1; n: =20;
for i: =1 to n do begin
c: =(b+a)/2;
writeln('i=',i: 3,'x=',c: 10: 8,
'f(x)=',f(c): 12: 8);
if f(c)=0 then break
else if f(c)*f(0)> 0 then
a: =c else b: =c; end;
end.

//PascalABC.NET 3.2 сборка 1318

Var  x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;
begin
read(x1,y1,x2,y2,x,y);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else
if (x<x1) and (y>y3) then writeln('NW') else
if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else
if (x>x2) and (y>y3) then writeln('NE') else
if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else
if (x>x2) and (y<y4) then writeln('SE') else
if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else
if (x<x1) and (y<y1) then writeln('SW');
end.

Пример ввода:
-2 1 4 4 -3 5
Пример вывода:
NW

При́судок (від чеськ. přísudek)[1] — головний член речення, пов'язаний координацією з підметом, що виражає дію предмета, названого підметом. Найтиповіша форма присудка — дієслово в особовій формі, що означає дію чи стан суб'єкта, названого підметом. Присудок — головний член двоскладного речення, що характеризує підмет за дією чи ознакою. Присудок відповідає на питання що робить? що зробить ? що з ним робиться? у якому він стані? який він є? хто або що він є? При схематичному аналізі речення графічно позначається підкреслюванням двома рисками.