Question

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

Answer 1

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

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

Пример
4 5 6 7
4

Answer 2

Не используя массив:
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.