Вычислить значение функции y=a/x+b при x=1, 2, 3, 10 (a, b вводятся с клавиатуры)

Программа на языке Pascal 3.0

program Z_1;

uses crt;

var a, x, b:integer;

y:real;

begin

writeln ('Введите a, b, x'); readln (a, b, x); {x тоже нужно ввести, так как нет никакой последовательности в этих четырех цифрах и циклом не получится}

y:=a / (x+b);

writeln (y);

end.

Var a, b, x:integer;

begin

writeln ('Введите A, B');

read (a, b);

for x : = 1 to 10 do

writeln ('Для x=', x,', y=', a/x+b);

end.