Поиск мин числа без массива

[Idealist 2012]

Есть задача: написать программу (на паскале) поиска минимального числа(в последовательности вводимой с клавиатуры) сумма цифр которого больше заданного числа (вводимого с клав.). Использовать массивы как я понял запрещено. Вопрос в том как найти минимальное число?(t)...))

Часть программы:

program lab3;
var a,b,n,z,y,t:integer;
const i=1;
label rto;

  function sum(n:integer):integer;
  var f:integer;
  begin
    f:=0;
    while n>0 do
      begin
       f:=f+(n mod 10);
       n:=n div 10;
      end;
    sum:=f;
  end;

begin
 y:=0;
 z:=0;
 writeln('Введите число:');
 readln(b);
 writeln('Введите последовательность:');
 while i=1 do
  begin
   z:=z+1;
   write(z,'=');
   readln(a);
     if a=0 then goto rto;
   writeln('Сумма цифр числа ',z,'=',sum(a));
     if sum(a)>b then



  end;
  rto:
  writeln(t);
end.

[Zer0]

     if sum(a)>b then
if a<min then min:=a;

перед этим в качестве min присвоить какое нибудь огромное число)

[Idealist 2012]

И ещё пару задач (свои наработки я в гневе стёр...))):

1)Найти произведение чисел, которые не превосходят 4000 и являются полными квадратами некоторого натурального числа. В программе обязательно применение процедур и/или функций с передаваемыми параметрами. Не допускается использование типа string и array.

2)Вычислить количество арифметических прогрессий с заданным приращением М, состоящих не менее чем из трех подряд расположенных элементов. Порядок расположения элементов в массиве менять нельзя. Для каждой обнаруженной прогрессии напечатать номера входящих в нее элементов. Использование дополнительных массивов запрещено. В программе обязательно при¬менение процедур и/или функций с передаваемыми параметрами.

Пишите свои мысли-программы, буду благодарен...

[Zer0]

1)

var s:longint;
function IsGood(n:integer):boolean;
var t:real;
begin
 t:=sqrt(n);
 isGood:=(t-trunc(t)=0 );
end;

procedure CalcSum(var Summ:longint);
var i:integer;
begin
summ:=0;
for i:=1 to 4000 do if isgood(i) then summ:=summ+i;
end;

begin
CalcSum(s);
writeln (s);
end.

[Idealist 2012]

Спасибо, всё довольно просто, даже для меня))

[Idealist 2012]

Для 1(2) задачи немного другая программа:

program lab2;

var s,x,i,summ:longint;
const k=1;
label rto;

  function Good(n:integer):boolean;
  var t:real;
  begin
    t:=sqrt(n);
    Good:=(t-trunc(t)=0);
  end;


begin
summ:=1;
  while k=1 do
    begin
       readln(s);
         if s=0 then goto rto;
       if s<4000 then;
       if good(s)=true then
            begin
             summ:=summ*s;
             x:=summ;
            end;
    end;
rto:
writeln(x);
end.