Огромная просьба помочь перевести лабу из Basic в Pascal, либо подскажите программу в которой это сделать:
Вот что дано:
http://radikal.ru/F/s013.radikal.ru/i325/1106/4a/d75e0ec5782f.jpg.html][IMG] http://s013.radikal.ru/i325/1106/4a/d75e0ec5782ft.jpg [/IMG]
А вот алгоритм:
1часть:
http://radikal.ru/F/i053.radikal.ru/1106/12/e35db4534550.jpg.html][IMG] http://i053.radikal.ru/1106/12/e35db4534550t.jpg [/IMG]
2часть:
http://radikal.ru/F/s008.radikal.ru/i306/1106/60/97713e5a3aec.jpg.html][IMG] http://s008.radikal.ru/i306/1106/60/97713e5a3aect.jpg [/IMG]