Напечатать число S= max(a,min(c,b) С формул которые указанные на картинке

Program pr1;
var  l,k: integer;
     a,b,c,min,s:real;
begin
Write('l=');
Readln(l);
if l=0 then
begin
  write('b не определено');
  readln;
  exit
end;
Write('k=');
Readln(k);
a:=(2*l-3*k)/5;
b:=(l+2)/l;
c:=l*k-10;
If c<b then min:=c Else min:=b;
If min>a then s:=min else s:=a;
writeln('S=',s);
readln
end.