Решите уравнение на паскале; y=(x+3)(c+2)/x+c

Program zadacha;
uses crt;
var x, c: integer;
y: real;
begin
clrscr;
write (' enter x and c: ');
readln (x, c);
y:=((x+3)*(c+2))/(x+c);
writeln ('y=', y:0:4);
readkey;
end.