турбо паскаль

Компилирую код выскакивает ошибка 85 ";" Помогите кто что подскажет пожалуйста Вот код: Program system1 var y,m,a,b: real; Begin Write ('a=');Readln a; Write ('b=');Readln b; Write ('m=');Readln m; If m<=-5 Then y:=m^2-2*m+1 Else If m<2 Then y:=m+a Else y:=a*m+b; Writeln('y=',y:5:3)...