Составьте программу (На Паскале )Найдите все значения у на промежутке от -5 до 5 .Функция y = 2x +4

program functiya;

var

 x, y: integer;

begin

 for x := -5 to 5 do

 begin

   y := 2 * x + 4;

   writeln(y, ' ');

 end;

end.