Очень сложная задача по информатике которую нужно записать на Pascal !!

Спасибо дружище ток я уже сам допер ))Ток я залипил еще две подпрограммы!

Главное, чтобы работало! А так - хоть 100 подпрограмм. Эффективность программирования в школах оценивают редко.

У нас оценивают))

var  x1, y1, x2, y2, i: integer;begin  Write('Введите через пробел исходные номера улицы и авеню: ');  Readln(x1, y1);  Write('Введите через пробел конечные номера улицы и авеню: ');  Readln(x2, y2);  Writeln('Найденный путь:;');  if x2 > x1 then for i := x1 to x2 - 1 do Write('E')  else for i := x1 downto x2 + 1 do Write('W');  if y2 > y1 then for i := y1 to y2 - 1 do Write('N')  else for i := y1 downto y2 + 1 do Write('S');  Writelnend.Тестовое решение:Введите через пробел исходные номера улицы и авеню: 1 3Введите через пробел конечные номера улицы и авеню: 4 1Найденный путь:;EEESSВведите через пробел исходные номера улицы и авеню: 58 49Введите через пробел конечные номера улицы и авеню: 36 23Найденный путь:;WWWWWWWWWWWWWWWWWWWWWWSSSSSSSSSSSSSSSSSSSSSSSSSS