линейный алгоритм

[Seregga]

приветствую Вас товарищи программисты! помагите пожалуста с решением задачи в delphi7,0....вот задача: Даны два ненулевых числа. Надо найти их сумму, разницу, произвиденеи и частное.(числа водяться рандомом). Буду весьма благодарен за оказаную помощь в решении данной задачи.

[Niro]

Помогу, но что непонятно?
На форму кидаете кнопку и label - 6 штук
Заводите шесть переменных для чисел и результатов операций над ними

randomize;
a:=random(10)+1;
и т.д.

Выводите в лэйблы результаты и числа

[_-Re@l-_]

Niro, зачем так?
Проще вот:

procedure TForm1.Button1Click(Sender: TObject)
var
      A,B:Integer;
begin
         Randomize;
         A:=Random(100)+1;
         B:=Random(100)+1;
         ShowMessage('Сумма ',IntToStr(A+B));
         ShowMessage('Разность ',IntToStr(A-B));
         ShowMessage('Произведение ',IntToStr(A*B));
         ShowMessage('Частное ',FloatToStr(A/B));
end;