[lxa85]

Пробывал при помощи циклов, не вышло. »

Попробуйте модулем, процедурой или потоком.

P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то.

[Паркан]

P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то. »

Програмка, которая определяет, попадает ли точка в плоскость.
Ввод: две точки. Далее проверяем, после выдаем результат и спрашиваем: хотите еще раз? Если да, то без завершения программы необходимо выполнить то же самое начиная с ввода точек.

[lxa85]

Паркан, самое простое -- поставить метку и сделать безусловный переход по условию. например:

Код:

getstart:
<код, где вызываются процедуры ввода точек>

readln('хотите продолжить? 1-да, 2-нет', answer);
if answer = 1 then 
    goto getstart
else
    <делаем что то другое, перед выходом из программы>
: //if answer = 1

[Drongo]

можно ещё проще until\repat

[Tau_0]

goto getstart »

goto, --- persona non grata

[lxa85]

Tau_0, Drongo, я же сказал "самое простое", а не "самое правильное"
Правильнее конечно не использовать goto, заменив его на repeat / until.