Ответ:
program Min;
var x, y, z, m: real
begin
writeLn("Введите x:");
readLn(x);
writeLn("Введите y:");
readLn(y);
writeLn("Введите z:");
readLn(z);
m := x;
if m > y then m := y;
if m > z then m := z;
writeLn(m);
end.
Объяснение:
x, y, z - числа
m - минимальное число
Сначала вводим числа по порядку через readLn(). Минимальное число устанавливаем на x. Затем проверяем если минимальное число больше Y значит нужно установить его в качестве минимального. Также и с числом Z. Выводим минимальное число.