Question

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

Answer 1

var
y,x:integer;
begin
for x:=-15 to 5 do
begin
y:=23*x+1;
write(y,' ');
end;
end.

Answer 2

спасибо огромное!!!