program tablicowanie;
var
y,x,a:real;
i:byte;
begin
write('Podaj wartosc parametru A: ');
readln(a);
// od -10 do 10 x, z kazdym obejściem + 0,5
x:=-10.5;
for i:=1 to 41 do
	begin
	x:=x+0.5;
		if
		(x-3)*(x+0.5+a)=0 then writeln('Dla x rownego ',x:1:2,' Mianownik rowny zero. Blad danych.')
		else
			begin
			y:=3*x+5/(x-3)*(x+a);
			writeln('Wynik dla x rownego ',x:1:2,' wynosi: ',y:1:2);
			end;
	end;
readln();
end.