Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a,b,c.проверьте полученную программу на следущих тестах (1,2,3); (3,2,1); (1,3,2).

Var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
if (a<b) and (a<c) then writeln('',a);
if (c<b) and (c<a) then writeln('',c);
if (b<a) and (b<c) then writeln('',b);
end.

Var a,b,c : integer;
begin
  read(a,b,c);//вводим 3 числа
  if (a < b) and (a < c) then writeln(a)
  else if (b < a) and (b < c) then writeln(b)
  else writeln(c);
end.