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

Question

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

Answer 1

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

Тестовое решение:
Введите три числа: 4.5 -3 0
min=-3

Answer 2

Var
a,b,c,min:integer;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Введите значение C=');read(c);
if (amin:=a;
if (bmin:=b;
if (cmin:=c;
write('Минимальное число=',min);
end.

//////////////////
Входные данные:
1
2
3
/////////////////////
Выходные данные:

Минимальное число=1