Помогите исправить код паскаля

[mishammm]

Задание: Выбрать и напечатать число S=max(a,min(c,b)). l , k обчислить по формулам на картинке. Мы должны ввести k,l где k - номер группы , l - номер варианта
Вот сам код:

Program pr1
var
a,b,c:real;
l,k: integer;
max,min: real;
begin
Writeln('VVedi l');
Readln(l);
Writeln('VVedi k');
Readln(k)
a:= (l - 3*k) - 5;
b:=( l + 2) / l;
с:= (l* k) -10;
If (c<b)>a) then max:=min else max:=a
Writeln('S=' , max:0:2);
Readln
End.

Мне не нравиться что оно выводит число 1.02 постоянно! Где может быть ошибка?

[Аватар]

На картинке для a одно, в программе вычисляется другое. А следующее не должно даже компилироваться

If (c<b)>a) then max:=min else max:=a

Можно заменить эту непонятку на

if c<b then max:=c else max:=b;
if max<a then max:=a;

[mishammm]

вот что выходит

[unbanned]

если я правильно понял то можно вообще min и max убрать...

var
  a, b, c: real;
  l, k: integer;

begin
  writeln('Type l:'); 
  write('l = '); readln(l); 
  writeln('Type k:'); 
  write('k = ');readln(k); 
  a := (2 * l - 3 * k) / 5; 
  b := (l + 2) / l; 
  c := (l * k) - 10; 
  
  if c < b then
  
    if a > c then writeln('S = ', a:0:4)
    else
      writeln('S = ', c:0:4)
      
  else 
  
    if a > b then writeln('S=', a:0:4)
    else
      writeln('S = ', b:0:4);  
    
  readln;
end.

[unbanned]

нечаянно продублировал

[mishammm]

не препод сказал что нужно чтобы было min , max эт обязательно

[unbanned]

эмм... ну тогда...

var
  a, b, c: real;
  l, k: integer;
  min, max: real;

begin
  writeln('Type l:'); 
  write('l = '); readln(l); 
  writeln('Type k:'); 
  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 a > min then max := a
  else
    max := min;
    
  writeln('S=', max:0:4);  
  readln;
end.

[mishammm]

эххх.... ((((
ввел например 89 и 100 то то же самое

[unbanned]

а что вас смущает? введите другие числа получите другой ответ...

Type l:
l = 1
Type k:
k = 55
S=3.0000

Type l:
l = 15
Type k:
k = 11
S=1.1333

Type l:
l = 55
Type k:
k = 1
S=47.0000


Type l:
l = 100
Type k:
k = 98
S=1.0200

[mishammm]

должно ли быть 1.02 ?? )) вот за что я переживаю )))