• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фазинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

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

Kuanish

New member
06.11.2016
2
0
#1
Компилирую код выскакивает ошибка 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.
 
Вверх Снизу