Ввести два числа и найти произведение их не используя умножение.Доработайте программу

[Stop]

Пишу программу на паскале.Мне нужно с функцией while.Не как не могу понять с чему мне сравнивать?

program n555;
var
s,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
while ????? do begin
s:=s+a;
end;
writeln (s);
end.

[elenka]

Я бы сделала так:
var s,a,b,i:integer;
begin
readln(a,b);
s:=a;
i:=1;
while (i<b) do
begin
s:=s+a;
i:=i+1;
end;
writeln('s=',s);
end.
Проверяла, код рабочий.
Если что-то непонятно, спрашивайте, объясню.

[sheff-09]

Stop, можно попробовать так:

var
   a,b,s,i: integer;
begin
     Writeln('a:'); Readln(a);
     Writeln('b:'); Readln(b);
     s:=0; i:=0;

     while i<>abs(b) do
           begin
                s:=s+a;
                inc(i);
           end;
     if b<0
           then s:=-s;

     Writeln(s);

Readln;
end.