Покажите весь процесс перевода

1) Записать на Паскале следующие числа: 7; 5,18; 

Запись числа 7 не изменится. Запись числа 5,18 будет отличаться лишь символом-разделителем целой и дробной части: в Паскале для этих целей используется точка, т.е. 5.18. можно записать в десятичной форме, т.е. 0.001, или в экспоненциальной: 1E-3.

2) Записать в общепринятой форме: 1.23; 2.1E1; 6.66E-3

В записи 1-го числа вместо точки появится запятая, т.е. 1,23. 2.1E1 и 6.66E-3 – это записи в экспоненциальной форме. Преобразовав их в общепринятую форму, получим 21 (2.1·10) и 0.00666 (6.66*10-3).

3) Записать на Паскале следующие формулы:

а) a+bx+cyz

В Паскале нельзя пропускать символы операций, т.е. нельзя записать bx. Кроме того, символ умножения отличается от привычной формы. В итоге получаем: a+b*x+c*y*z.

б) 

На Паскале не удастся записать числа в виде дроби. После их преобразований в строчную форму получим: a/(b*c)+(b*c)/a. Раскрыв скобки, можно получить: a/b/c+b*c/a.

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