Заполненные таблицы - в прилагаемых файлах.
Номер2 1-д 2-а 3-б.
Другие не знаю.
Var
X,b:real;
Begin
WriteLn('y=7x/(3x-12)');
Write('X = ');ReadLn(X);
WriteLn('Y = ',7*X/(3*X-12));
WriteLn;
WriteLn('y=4x/(2,6-b)');
Write('X = ');ReadLn(X);
Write('b = ');ReadLn(b);
WriteLn('Y = ',4*X/(2.6-b));
End.