Вот всё описано как нужно
Программа:
Pascal:
var
n1, n2, n3: real;
begin
write('Введите первое число: '); readln(n1);
write('Введите второе число: '); readln(n2);
write('Введите третье число: '); readln(n3);
write('Наименьшее число: ');
if (n1 > n2) and (n2 < n3) then write(n2)
else if (n1 < n2) and (n1 < n3) then write(n1)
else write(n3);
end.
