[NumLock]

Код:

var
  n0, n1, n2: Integer;
begin
  n0:=79;
  n1:=n0 div 2;
  n2:=n0-n1;
  Memo1.Lines.Add(IntToStr(n0));
  Memo1.Lines.Add(IntToStr(n1));
  Memo1.Lines.Add(IntToStr(n2));
  Memo1.Lines.Add(IntToStr(n1+n2));
end;