Var a,b,g,min:real;

begin

writeln('Сравнение двух чисел a и b');

writeln('Введите a и b');

readln(a,b);

If aelse if a>b then b:=min

else if a=b then a:=min;

g:=min*2;

writeln(g);

End.

в чем проблема??Выдаёт в итоге 0, при любых условиях

1234567891243    2   15.04.2020 19:45    2