Пожалуйста посчитайте пожалуйста, на языке Паскаль​

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. Выводим минимальное число.