Question

Задача №306. Минимум 4 чисел
Входные данные
Вводится четыре числа.
Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.
4 5 6 7
выводяться 4
Паскаль хелп####

Answer 1

Не используя массив:
Program tt;
Var a, b, c, d, Min: integer;
Begin
Min:=40000
Read(a);
Read(b);
Read(c);
Read(d);
If(a<Min) then
Min:=a;
If(b<Min) then
Min:=b;
If(c<Min) then
Min:=c;
If(d<Min) then
Min:=d
Write(Min);
End.

Answer 2

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(4).Min)
end.

Пример
4 5 6 7
4