Паскаль. Даны три действительных числа a,b,c. Присвоить программной переменной YMin значение min {a,b,c}.

Предыдущий
вопрос Следующий
вопрос

program FindMinValue;
var
a, b, c, YMin: real;
begin
// Вводим три числа
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
write('Введите число c: ');
readln(c);
// Находим минимальное значение
YMin := a;
if b < YMin then
YMin := b;
if c < YMin then
YMin := c;
// Выводим результат
writeln('Минимальное значение: ', YMin);
end.

Программа принимает три действительных числа от пользователя и записывает минимальное из них в переменную YMin.