;); ('________________________________________________________________________________');;: write ('Введіть коефіцієнт при х у чисельнику ..................');
{$ I-} (k); ioresult <> 0 do
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили ЧИСЕЛЬНІ ЗНАЧЕННЯ!'); ('Введіть коефіцієнт при х у чисельнику ..................'); (k);;
{$ I +} ('Введіть ступінь, в яку необхідно звести x .......');
{$ I-} (s1); ioresult <> 0 do
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили ЧИСЕЛЬНІ ЗНАЧЕННЯ!'); ('Введіть ступінь, в яку необхідно звести x .......'); (s1);
{$ I +}; ('Введіть основа логарифма ............................');
{$ I-} (o); (o <= 0) or (o = 1) do
begin ('НЕВІРНИЙ ВВЕДЕННЯ! основа логарифма БІЛЬШЕ НУЛЯ І НЕ ОДНО 1'); ('Введіть основа логарифма ............................');
readln (o); (ioresult <> 0) do
begin
writeln ('НЕВІРНИЙ ВВЕДЕННЯ! вводили ЧИСЕЛЬНІ ЗНАЧЕННЯ!'); ('Введіть основа логарифма ............................');
readln (o);;
{$ I +};
write ('Введіть ступінь, в яку необхідно звести логарифм.');
{$ I-} (s2); ioresult <> 0 do
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили ЧИСЕЛЬНІ ЗНАЧЕННЯ!'); ('Введіть ступінь, в яку необхідно звести логарифм');
readln (s1);;
{$ I +}: write ('Введіть кордону відрізків:');
{$ I-} (a, b); ioresult <> 0 do
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили ЧИСЕЛЬНІ ЗНАЧЕННЯ!'); ('Введіть кордону відрізка:');
readln (a, b);;
{$ I +} a = b then
writeln ('НЕВІРНИЙ ВВЕДЕННЯ! вводять різні ЗНАЧЕННЯ!');
goto m;
end; a <= 0 then
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили A> 0!');
goto m;; b <= 0 then
begin ('НЕВІРНИЙ ВВЕДЕННЯ! вводили B> 0!');
goto m;
end; a> b then
begin
writeln ('НЕВІРНИЙ ВВЕДЕННЯ! вводили A
goto m;; (ln (a) = 0) or (ln (b) = 0) then
begin ('РОЗПОДІЛ НА НУЛЬ! НІ РІШЕНЬ!'); ('ЗАПУСТИТИ ПРОГРАМУ СПОЧАТКУ? (y/n)');
readln (I);; I = 'y' then goto m1;;
{Виводиться графік функції}
out_grp (a, b, f (b), f (a));
{Обчислюється ...
