If-> Then -> Else Опции

[DZZRtt]

Я написал работающую программу, которая определяет принадлежит ли точка кругу с заданным радиусом

Код

l;=sqrt(sqr(x1-x2)+sqr(y1-y2));

if l<=r then
begin
writeln ('точка принадлежит кругу');
end
else
begin
writeln ('точка не принадлежит кругу');
end;

если после then и else убрать begin. a после writeln end. То выдается сообщение об ошибке
error in statement
но после того как я написал свою наткнулся в сети на похожую програмку в которой begin и end отсутствуют
и при этом она работает нормально. Пожалуйста объясните почему