Здравствуйте. Помогите пожалуйста с турбо паскаль.

[Djon Deison]

Компилирую код выскакивает ошибка 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);
Readln;
End.

 

[alex33]

В последней строчке должно быть End;

 

[Djon Deison]

В последней строчке должно быть End;

Спасибо. Все равно выходить ошибка 85 ";"