Program naim4; var a,b,c,d,min: real; begin; writeln('введите 4 числа'); readln; min: =a; if b < min then min: =b; if c < min then min: =c; if d < min then min: =d; writeln('минимальное ',min); readln; end. нужно найти минимальное число из 4 данных.что не так?