Даны целые числа a b.Найти минимальное из них и вывести в переменную min

vara,b,min:real;beginwrite('А - ');readln(a);write('B - ');readln(b);if a<b then min:=a else min:=b;writeln('Min - ',min);end.