ПОМОГИТЕ ПОЖАЛУЙСТА!** языке паскаль составить программу , выводящую ** экран наименьшее...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!
На языке паскаль составить программу , выводящую на экран наименьшее из трех чисел.Программа должна выводить на экран результат в виде:Наименьшее из данных трех чисел=Значение.

Answer 1

Var a, b, c: real;
begin
     readln(a, b, c);
     if (b < a) then a := b;
     if (c < a) then a := c;
     writeln('Наименьшее из данных трех чисел = ', a);
end.

Comments

точно правильно?