Выбор минимального из 3 введенных целых чисел

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a,b,c,min:real;  Write('Введите три числа: '); Read(a,b,c);  if a<b then min:=a else min:=b;  if c<min then min:=c;  Writeln('min=',min)end.Тестовое решение:Введите три числа: 4.5 -3 0min=-3

vara,b,c,min:integer;beginwrite('Введите значение A=');read(a);write('Введите значение B=');read(b);write('Введите значение C=');read(c);if (a<b) and (a<c) thenmin:=a;if (b<a) and (b<c) thenmin:=b;if (c<a) and (c<b) thenmin:=c;write('Минимальное число=',min);end.//////////////////Входные данные:123/////////////////////Выходные данные:Минимальное число=1