Подскажите ! дано 2 числа a и b написать алгоритм для вывода минимум значение. a=7 b=8

Var  a,b:longint;begin  read(a,b);  if a > b then    writeln(b);  if a < b then    writeln(a);  if a = b then     writeln('Числа равны');end.