Кто шарит в информатике .. нужно разработать программу в pascal для решения уравнения вида {a}^{x} = bax=b нужно составить модель, блок-схему и программу хелп

Показательное уравнение решается логарифмом, линейное - делением

x=ln (b)/ln (a) первый случай
x=b/a второй случай

program test;
uses crt;
var a, b,x: real;

begin
clrscr;
repeat
readln ('Введите значение коэффициентов ',a,b)
until a>0 and b>0;
x:=ln (b)/ln (a);
writeln ('решение показательного уравнения ',x);
x:=b/a;
writeln ('решение линейного уравнения ',x);
readkey;
end.