По приведенному фрагменту программы определите значение переменных S и I
(составить программу, блок схему, алгоритмический язык)
I:=0;
S:=0;
While I < 5 do
Begin
I:=I+1;
S:=S+I;
End;

1) Выражение "Семь пядей во лбу " : возникло на основе того , что по высоте лба можно судить об умственных человека . Старинная мера длины ,пядь ,равнялась расстоянию между концами растянутых большого и указательного (меньшая пядь) или большого и среднего пальцев (большая пядь ); 2)Так говорят о человеке крепкого , крупного телосложения - его ширина плеч равна косой сажени - около 2х мет.(расстояние от пальцев вытянутой вверх руки до ступни противоположной ноги.); 3) "Борода с вершок, а слов с мешок"  : борода с 44 см , а слов с мешок ( вершок от слова "верх") ; 4)Быть проницательным , дальновидным , предусмотрительным .

//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