Составить программу в среде Turbo Pascal для решения следующей задачи: "Вычислить все значения и найти количество элементов больших 10, для у=а (х+1), если а=2, шаг=1 и х€[-5; 15]".

Const

a=2;

step=1;

x0=-5;

x1=15;

var

i, count: integer;

function y (x: integer) : integer;

begin

y:=a * (x+1) ;

end;

begin

for i:=x0 to x1 do

begin

writeln ('f (', i, ') = ', y (i)) ;

if y (i) >10 then inc (count)

end;

writeln ('Количество f (x) >10: ', count)

end.