Вычислить значение функции 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.