Как написать цикл со счетчиком в Паскале?

[Женя1234]

например нужно сравнить 4 числа и выбрать наименьшее и сделать это 30 раз не останавливая программу Вот числа 0,04 0,08 0,02 0,07

[rUs_LAN]

непонятно, непонятно...

[Stilet]

и сделать это 30 раз

Почему тридцать?

[whatever]

Как говорится, "Что заказывали..."

function Min(a,b,c,d:real):real;
begin
  result:=a;
  if result>b then result:=b;
  if result>c then result:=c;
  if result>d then result:=d;
end;
var
  a,b,c,d:real;
  i:integer;
begin
  a:=0.04;
  b:=0.08;
  c:=0.02;
  d:=0.07;
  for i:=1 to 30 do
    write(min(a,b,c,d):1:2,' ');
  readln;
end.

[Женя1234]

А кроме result ьожно что нить другое вставить он не распознает его?

[whatever]

Чертов паскаль, все время забываю...

function Min(a,b,c,d:real):real;
var
  tmp:real;
begin
  tmp:=a;
  if tmp>b then tmp:=b;
  if tmp>c then tmp:=c;
  if tmp>d then tmp:=d;
  min:=tmp;
end;

Вот так будет работать.

Кстати, такой код я написал прикола ради (начинаю думать, что ТС этого не понял). В чем смысл данной программы? Зачем из четырех НЕМЕНЯЮЩИХСЯ чисел 30 раз выбирать (даже не печатать, а именно выбирать) минимальное?