Turbo Pascal даны действительные числа х,у найти минимальное из них

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

Пример решения на Turbo Pascal:

program FindMinimum;
var
x, y, min: real;
begin
writeln('Enter the value of x: ');
readln(x);
writeln('Enter the value of y: ');
readln(y);
if x < y then
min := x
else
min := y;
writeln('The minimum value is: ', min);
end.

Эта программа запрашивает у пользователя два действительных числа, сравнивает их и находит минимальное из них.