Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a, b,...

Question

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

Answer 1

var a,b,c,min:integer;
begin
readln(a,b,c);
if aif cwriteln('min = ',min);
end.

Пример:
2 3 1
min = 1

Answer 2

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