Программирование на уровне школы. помогите! У меня недружба с условиями (паскаль)

Question

Var a,b,m,z:real; 
Begin 
Writeln ('введите положительное значение m'); 
readln (m); 
if m<=0 then begin 
writeln('недопустимое значение переменной') 
else 
a:=sqrt(sqr(3*m+2)-24*m); 
b:=3*sqrt(m)-2/sqrt(m); 
z:=a/b; 
writeln ('z=', z); 
 end; 
 end.

Алексей Гурей · Accepted Answer

Мда, это рукалицо

Denis · Answer

перед ELSE поставь end, а после ELSE - begin 
А лучше второй begin удали и поставь его после else