Составьте программу вычисления значений функции: y=23x+1 для целых значений х из интервала [-15,5]

Составим программу на языке программирования Паскаль, для вычисления значений функции: y = 23 * x + 1 для целых значений х из интервала [-15,5]:

programm vychisleniye;

var y, x: integer;

writeln ('Введите целое значение переменной x из промежутка от - 15 до 5');

readln (x);

if x 5

then

writeln ('Указанное число не соответствует заданному промежутку');

else

y: = 23 * x + 1;

writeln ('Полученное значение функции при заданном значении параметра = 'y);

readln (y);

end.