5
Объяснение:
а = 10 (присваиваем переменной a значение 10)
b = 5 (присваиваем переменной b значение 5)
c = 7 (присваиваем переменной c значение 7)
min = a (присваиваем переменной min значение переменной a, теперь min = 10)
if b < min then min = b (если переменная b меньше переменной min (а это так 5 < 10) то присваиваем min значение переменной b, теперь min = 5)
if c < min then min = c (если переменная c меньше переменной min (а это НЕ так 7 > 5) то присваиваем min значение переменной c, теперь переменная min остаётся без изменений min = 5)
var
a,b:integer;
begin
write('Введите в одной строке два целых числа и нажмите <Enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a>b then writeln(a,' больше')
else writeln(b,' больше')
end.