Составьте алгоритм на языке pascal для решения неравенства вида: в-3*а*х> с-5

Var
a,b,c,s,k,x,q,f:real;
begin
write('Vvedite a,b,c:   ');
readln(a,b,c);
s:=-b+c-5;
k:=-3*a;
q:=-a*3;
f:=-b+c-5;
begin
If (q<0) and (f<0) then
writeln('x','<',s/k)
else
writeln('x',' >',s/k);
end;
end.