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